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Subjects New Release of SPRITE 


On Mondays March 14 14983, SPRITX (6601) will become SPRT66- SPRITE. . 
(6505) will become SPRT65 and a new version of SPRITE will be available. © 
SPRT65 and SPRT66 will be removed from the system a sonth tater (April 
14-6 1983). 


The new version it SPRITE sixes bugs (see Appendix A ena D) and provides, 
new features (see Appendix B, C and E). 
This SPRITE is version 6700 and is not MID-compatible with version 6604 

or earlier versions. This inconvenience is necessary. due to the changes | 
within the SYSTEM information. This. requires that your MIDs be. 
recoapiled with SPRITE before any of your modules will recompile. . 


The Ys==s= series of the intrinsics Libraries are compatible only with. 
SPRT65~emitted ICMss and the X===== series of the intrinsics tibraries 
are compatible only with SPRT66-emitted ICMs. Two new set of intrinsics 
libraries, S=Ss= and €=====, are corpatible with SFRITE-emitted ICMs. 
However, the €===== series of intrinsics tibraries can only be used with 
ICMs produced with $$ EXTENDED (see Appendix Ss item 15). 


Concurrent with the release of the SPRITE compilers a new version of 
XREF and COMPRS wilt also be available on the system. The new XREF, 
program shows the correspondence between the module mame and the _ fite 
name used for that module. The old COMFRS program used to bomb when 
running on 83900 . The new one will now run on both 83900 and 84800. 


Please report any protlems to a member of the Implementation Systems 
Section with appropriate Listings for screening before emering them 
into the.BUGS system. ALL actual bugs will be entered into the a8uGs 
system by-the reporting user. , 


Blu de. Willers son: 


Belinda Wilkinson,» Manager 
Implementation Systems Section 
Architecture Department 


This release document contz2ins; 
APPENDIX A: BUGS FIXED 


' APPENDIX Bs GENERAL ENHANCEMENTS 


APPENDIX Cs OMEGA-RELATED ENHANCEMENTS 
APPENDIX O83 INTRINSICS BUGS FIXED 
APPENDIX Ez INTRINSICS ENHANCEMENTS 
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SMAP option with normal tag fields 


The $MAP aption did not List the normal tag fields of a 
STRUC declaration. Entries for these will now appear if 
SMAP has been set. 


Nil pointer values (changed!!!) 


The value of nit no tonger changes or causes overflow 
when being moved as a 7sn value. (Regular pointers are 
7sn for OMEGA programs.) This has teen accomplished by 
changing nil to “CEEEEEEE” for regular pointers, 
“OODOQOOOCEEEEEEE” for parametric pointers and “OCEEEEEEE” 
for procedure pointers. The new values are used for both 
OMEGA and non-OMEGA programs. Pointer kludgers beware!!! 


Logical operations on hex strings over 100 digits (82781) 


Logical operations on fixed length hex strings over 100 
digits mew work for the entire string Cit used to work 
only for the first 100 digits). 


String comparison 


In a relational expression where the teft and right 
operands are both stringsse SPRITE will now coerce the 
shorter one to the length of the longer (Cit used to 
coerce the right operand to the left operand no matter 
which one was longer). 


‘DISPLAY --=-> STRING coercion 


SPRITE no Longer allows the coercion from DISPLAY to 
STRING if the string is bigger. It wilt put out an error 
message if the string is fixed length. For variable 
Length strings. it puts out a warning and then generates 


‘optionat run time code to make sure that the string is 


not bigger than the display integer. SPRITE now puts out 
overflow testing code for the coercion from OfSPLAY to 
STRING whenever the display integer is or could possibly 
be Cin the case of variable length strings) bigger than 
the string. 
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66 Conditional subscript checking 


The value of the SOUNDS dollar option is now checked 
before generating bounds checking code for array and 
subport indices. If BOUNDS has been reset or set to a 
vatue less than 4 the subscript checking code witt not 
be generated. 


V6 Standard proc VAR parameter checking 


Several standard procedures now correctly enforce their 
VAR access parameter requirements. Alsore- the standard 
function translate now requires only that its second 
parameter not be a constant (because a constant translate 
table is not mod 1000). It used to require VAR access. 


8. File record size > 39996 (82881) 


Declaring a file with a record size greater than 394996 
digits no longer causes a compiler failure. 


ae FOR see DESCENDING, et al (82882) 


SPRITE no longer tries to optimize to MVW or MVA when 
either of the operands is a number. It now generates a 
MYN as befores which sets the comparison indicators 
properly. This was necessary to produce the right code 
for the FOR 1... OESCENDING statement. This bug in turn 
had caused the compiler to fail when processing a call to 
a procedure with ten parameters. 


10. Pointer coercion (82819) 


SPRITE now generates the right code to coerce between a 
pointer to a parametric string and a pointer to a fixed 
length string. It was generating bad code for a RETURN 
Statement when the expression is one kind of pointer and 
the RETURN type is the other kind. 


11. Variable length string to DISPLAY coercion (832581) 


SPRITE now generates the richt code te coerce from a 

variable -length string to DISPLAY» even when the dollar 

card option “SOUNDS” jis reset. Alsor “$$ BOUNDS” no 
ai longer resets the “BOUNDS” option. 
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13. 
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ay 1 5 s 


16. 


17. 


13. 


~ 19. 


Ptr function as parameter (82701) 

SPRITE now generates the right code for a parameter even 
whens the formal parameter is either UNIV or a 
non~parametric pointer passed hy VALUEs the actual 
parameter is a call to the standard function "“ptr™s and 
the actual parameter to “ptr” is either a constants a 
Gata block variables or a STATIC variable. 

Dereferencing a constant painter (82605) 

SPRITE now generates the right code to dereference a 
constant pointer (defined using a structure with an 
omitted tagfield). 

Translating a variable length HEX string (82824) 

SPRITE no longer bombs when processing a catlt to the 


standard function “translLate”“” with a variable length HEX 
string as the first parameter. 


$$ LISTP (82783) 

SPRITE now Lists all patches when compiling with “$$ 
LISTPs RESET LIST™. 

Finding 8IT fields in an array (82713) 

SPRITE now puts out an error message if the type of the 
find primary in a FIND statement is BIT. 

Range check subscripts for array slice (82681) 

SPRITE now generates range checking cede for array slice 
subscripts. : 

Scale_ptr 

The standard function scale_ptr (allowed only when 
producing assembly code) now generates the right offset 
for the destination address. 

String concatenation with bad “eait_numter™ (82293) 


String concatenation with bad “edit number™ no longer 
causes compiler failure. 
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Macro's parameter (82906) 


SPRITE now catches the following error: The macro’s 
formal parameter ts VAR accesss but the actual parameter 
jis CONST access. 


Mod 1000 ftag reset for STATIC blocks 


This flag was not being reset. when a STATIC block 
contained a TRANSLATE_TABLEs- the mod_1000 flag was set 
and every STATIC block following it would atso have the 
mod_1000 flag set. Needless to says this wastes a bit of 
memorys so it has been remedied. 


Nil to procedure pointer coercion (82878) . 

SPRITE no longer generates the bad code when compiling 
“IF procedure_pointer = nil"» and no longer bombs when 
compiling “IF nil = procedure_pointer™. 

FIND with SN key no longer generates tad code 

SPRITE no longer tries to optimize the code for FIND 


statement if the type of the key is SN. It used to 
optimize the SN key.to UA. 
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Ts Port_to.open_avaitable 
A regular file identifier is now an acceptable parameter 
to the standard procedure port_io.open_available. 

2. PORTRESULTS 


An inquiry to the PORTRESULTS attribute will no longer 
modify the PFIB subport index field. : 


3e FINO with non-statenent locat pointers 


For any of the find statement typess the FIND statement's 
result pointer may now be either tocal or external. 
LOCAL means a statement-tocal variable Cidentifier) whose 
value and scope are availanle only in the THEN part of 
the statements tocal is the default. EXTERNAL means an 
externally-declared (to the statement) variable (primary) 
which is a pointer to the type of the array*s coamponents 
and which on a nonrhit wilt receive the nil pointer 
value. : 


find _pointer_spec 


| pointer: 
Noe ee Pe eS te eh ht ie ne et Sal 5 ident ~~ __-_ 
VN / / \ 
\ VLU LOCAL L__/ / ] 
\ pointer: / | 
: ; VU. EXTERNAL _____ primary __/ | 


Examples: 

% p is lLocat and available in THEN only 
% no change to current syntax 

FIND p AND ij INTO array? WHERE pd.num = 0 
% q is tocal and available in THEN only 

FIND LOCAL gq INTO array2 WHERE gd.char = “x” 
% © is externals previously defined, 
% ana available in its scope. 

FIND EXTERNAL r INTO array3 WHERE rad.name = current name 


4. FIND with pointers celimiting array slice bounds 
The pointer-to-pointer type of the FIND staterent is now 
available. It permits the use of pointers to an arrays 
components as the delimiters of the FIND statement. The 
use of the new reserved word END provides access through 
and including the tast array element. The cointers must 
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alt be pointing to the type of the array*s component. 
The array primary may not be an array slice. 


find_statement 


\LL_LFIND___find_pointer_spec___find_control___ 
\ 
Re ig ae ae i eT SPINA EDT” ter eer ger AE OR? / 
/ . 
VLU WHERE___ find _condition___ 
\ 
Fo at se ah ea a / 
/ 
\__THEN__statements____ELSE____statements____DNIF____ 
, Sie Ve Bi ar rae Ee ae OP BO / \ 
| 
find _control 
] = 
Nes et Rs en teh eee Ne tek oe wt ce INTO __arraysprimary___ 
| \ index: / “\ 
| \LULAND___Lidentifier__ / | 
1 | 
{ base pointer: Lirit pointer: array: { 
\LL_LOVER__primary__ .. ___primary____INTO____primary___ | 
\ / \] 
\ END _/ | 
! 


Examples: 
4 f and g used the ptr function 
2 to ooint at elements of array1 
FIND p OVER f .. 9 INTO array! WHERE pa.num = C 
% ptr function itself may be used; 
2 =ND gets Last element of array2 
FINO LOCAL q OVER ptr €arraye (2)])..END INTO array2 
WHERE aga.char = “x 
% pointer values have been previously 
% stored in a global structure 
FIND EXTERNAL r OVER global.tol3_begin .. gtobal.tbl3_end 
INTO tbl3 WHERE radsname = current_name 


De Logical operations and concatenations enhancement 


It ts mow legal to do Logical operations and 
concatenations between hex strings and display integers. 
The display integer involved in the operation will be 
coerced to a string of its own Length with the base type 
set to the base type of the counterpart string. Example: 
put.string ("dint2 = “ + dint2)- 


can 
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Complex wait enhancement ~ 


The complex wait function now includes four new event 
tyoes. They afez stoque_parameter_block . STOGINPUTEVENT, 
stoque_parameter_block. STOQGCUTPUTEVENT, 

prog name .CRCRINPUTEVENT and prog_name.CRCROUTPUTEVENT, 
where prog _name is a primary of type STRING (6) CHAR 


CEBCOIC)., and stcoque_parameter_block is a structure 
beginning with a field of type STRING (6) CHAR CEBCDIC) 
which its the STOGUE queue name. It is the user's 


responsibility to make sure that the queue_name is a 6 UA 
field STOQUE queue name and the prog_name is a 6 UA field 
program name. 


Literal hex string optimization 


The code produced for string operations involving a 
constant hex string has been changed in two respects. 
Firsts if the constant is either 1 or 2 digits tongs an 
ORR/AND is replaced with a B8ST/BRT instruction. 
Seconalys if the constant is less than 7? digits tlong- it 
is made a Literal in the A address field of the ORR/AND 
instruction. 


New file types supperted 


For regular files» DCP and ISC are now legal values for 
the KIND attribute. 


User-defined buffer io 


For regular files» it is now possible to do input/output 
from different buffers. To allow this cirect buffer 
access» five standard procedures 
(prepare_user_defined_buffer_ios write_buffer, 

read _buffer,s read_random_butfer and write _random_buf fer) 
under the standard module “io™ have been added. 
Following is the mocule description that aescribes these 
new standard procedures ana their parameters. 


prepare_user_cefined_buffer_io 
PROC (file FILE, 
buffer UNIV PARAMETRIC_HEX_STRING)+> % Modulo ano size 
4% must be mod 4 
read_buffer 
PROC (file FILE, 
buffer UNIV PARAMETRIC_LHEX_STRING)s % Medulo and size 
4 must be mod 4 
read_random_buffer 


/ 


’ 
7 
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Proc (file FILE. 
buffer UNIV PARAMETRIC_LHEX_STRIANGes % Medulo and size 
key Vee IDGSG99II)G % must be mod 4 
write_buffer 
PROC (file FILE, 
buffer UNIV PARAMETRIC_HEX_STRING)+ % Medulo and size 
% must be mod 4 
write_random_buffer 
PROC (file FILE, 
buffer UNIV PARAMETRIC_HEX_STRING- % Modulo and size 
key 12299999999) 5 x must be mod 4 
DOMes 
There are five restrictions placed on these 
user-defined-buffer-io procedures. 

(a) Prepare_user_cefined_buffer_io must te called 
before any of the read/write procedures can be 
used. 

Cb). There is only one buffer Cite. only one pair (of 
FIB_AA and FI8_668) declared on the file to be 
used. 

Cc) The size anc medulo cf the buffer must be mod 4. 


Deferenced parametric pointers» variable length 


strings and fixed length sutstrings 


with varible 


offset are the user's reponsibility. The system 


will kill you if they are not mod 4. 


Cd) Once the buf fer is 
prepare_user_defined_buffer_to- 


used in 


SPRITE wit 


generate optional run time code to make sure that 


the same cuffer is used for 


read _bufte.cs 


write_buffer, read_random_buffer and 


write_random_buffer. 


Ce) Using both the regular 1/0 procedures and the 
direct buffer I/0 procedures for the same file is 


not atlowed. 


Following is an example that shows how to use these new standard 


procedures. 


Exasole: 
direct _buffer_io 
MOD 
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REAL_RECORD = STRUC 
reocrd STRING €10000) 
Z takes 20000 digits 
CURTS» 


DUMMY_RECORD =,STRUC : 
dummy STRING (2) 
~%& takes only 4 digits 
CURTS; 


file_block 
FILE 
reader CMYUSE = IN» KIND = DISKI 
OF DUMMY_RECORDs % Allocate 4-digit buffer 
% instead of 20000-digit ouffer 
printer CMYUSE = QUT, KIND = PRINTER] 
OF DUMMY_RECORDs % Allocate 4-digqit buffer 
% instead of 2000C-digit buffer 
ouffer_block 
DATA 
otk _buf_ptr PTR TO REAL_RECORD; 


driver 
Po PROC 


prepare _direct_buffer_ioz 
do_direct_buffer_io- 


CORP; % driver 
‘“N 
prepare _direct_buffer_io 
PROC; 
SHARES file_blocks buffer_block; 
GENERATE EXTERNAL blLk_buf_ptr; 
jo.prepare_user_cefined_buffer_io (readers blk _buf_optrad; 
io.prepare_user_defined_buffer_io (printers blk buf_ptra); 
CORP, % prepare_direct_buffer_io 
do_direct_buffer_io 
PROC; 
SHARES file_bolcks. buffer_blocks 
jio.read_buffer (readers blk_buff_etra), 
io-write_buffer (printers olk_buf_ptra); 


CORP; % do _direct_buffer_io 
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% direct _buf fer_io 


CASE statement optimization 


The CASE statement will now use a multiply and indirect 
branch to select an alternates rather than a search and 
indirect branchs but only if these conditions are 
satisfied: 


i. There must te’ at least 12 alternates in the CASE 
statement. A search is faster for 11 or fewer 
labels. 

26 The selector expression must be unsigned numeric 


or unpacked ORDERED or SYMBOLIC. 


3. The result of the selector expression must have a 
Length in the range 2..6. 


he A certain percentage of the possible alternate 
Labels must be specifieds otherwises the case 
table witl be much targer. For the lengths 2..6 
these percentages are 80%+ 67%» 67%» S7% and 57%. 
For examples if the selector expression result 
type is 100300..100399, then at teast 57% of 
€7100399-1900300+1) or 57 alternates must be 
specified before a multiply wilt be generated. 


For large CASE statements, the multiply is more than an 
order of maqnitude faster than the search. In most cases 
Ca tittle pun there) the compiler will automaticatly . use 
the multiply»~ but if afew alternate labels must be 
Manually added to the CAS£ statements the rewards are 
worth it. 


ICM_TOKEN definition change 


Three new ICM_TOKEN fielcs were added for CO3CL and 
FORTRAN. The “segment_threshola” field in MCDULE_HEADER 
was changed from 4-UN to 2-UN to make room for a 2-UN 
“version_number™,. Both fields are set to zeroes as 
before. The new BIT field “no_code_List™ was added after 
“ltocat™ in MODULE_HEADER. Also» the new BIT field 
“fortranlexternal”™ was added after “returnseg_on_stack™ 
in PROC_LINTEPFACE. Both AIT fields are set to false, 
instead of teing “F"ed out. 
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Fite buffers in HIGH DATA 


SPRITE nao tonger marks the tuffer blocks as high data. 
The name of the buffer block for a particutar file block 
is: “uwa_buff_XXXX_YYYYYY".» where XXXX is a 4-digit 
block number assigned te the file block by SPRITE and 
YYYYYY is Cthe first six characters of) the file block 
name. This enhancement allows the user to put the buffer 
block in the appropriate overlay when binding together 
his program. 


Parametric arrays 

Parametric one-dimensional arrays parallel parametric 
strings in syntax and use. The same capacilities and 
restrictions apply. The syntax for a parametric array 
type definition is: 

parametric array type defn 


} upper bounds: 


VL. TYPE __Lindicant__¢€__paramsident___subrange___)_ = _ 

\ 

Sa eae an a ae ek ee cs eee a ee el / 
/ lower bound: params element: 

VL. ARRAY __ € __constant__ ..  _ident_. ] __ OF L_type_ 
\ f \ 


A parametric array must be ene-dimensional. The lower 
bound constant must be an integer less than or equal to 
the lower bound of the upper bound subranges which must 
be an integer range type. ; 


A parametric array type can be the base type of a pointer 
as well as the type of a format parameter. The standard 
Operators “upb™ and “lwb" can be used to aiscover ie 
upper and lower bounds of the parametric array. The twhb 
function always returns the Lower bound centant used in 
the parametric array type definition and the upb function 
returns a value which is: the lower bound value + the 
number of elements in the corresponding actual array - 1. 
Within the procedures the index type of the parametric 
array is lwb..upbs and the semantics of fixed arrays 
apply. For examples 


TYPE 
VECTOR Cupbnd 7..1C0) = ARRAY C4.c.upbnaly OF 9..10000- 
VECTCR_ PTR = PTR TO VECTOR, 


buildivector 
PROC, 


VAR sum 0..100C0C00, 
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vector ARRAY C1..10] OF C..10000- 


vector 3= [1% 20 34 40 Se 69 Pe 80 Do 1092 
sum 2= sum_vector (vectcr)-; 


CORP? % build_vector 


sum_vector 
PROC (vector VECTCGR) RETURNS 0..1000000. 


VAR sum O..17000000 := QO; 


FOR i OVER Lwb€vectors 1)..upb (vectors 1) 


The ELEMENTS clause is only applicable if the” pointer 
references a parametric array. The size of the space 
generated for a parametric array will be the maximum size 
in its rarges unless an ELEMENTS clause appears. [In that 
cases the integer expression which follows the word 
ELEMENTS will be the number of elements in the parametric 
arrays provided this number of elements is within its 
range. 


Optional stack overflow check 


The stack overflow check generated by SPRITE now has 
optional code markers (lLevel=bcunds_checking_code) around 
it. 


D0 % two returns 4 
sum +:= vector Cid, % upb returns 4 + 10 - 1 = 13 
OD; 
RETURN sume 
CORP; % sumovector 
To allow the GENERATE statement to work for parametric 
array pointerss the syntax was modified as fotlows:. 
generate statement 
H integer: 
\_. GENERATE __ EXTERNAL ___primary___ ELEMENTS ___simple_expr___ 
\__ LOCAL __/ VL LENGTH _/ / \N 
Ne eto Boe hs / sf 
/ 
Bo Bose ee ae BrP ats as De et le / 
/ memory area: 
NUL-. «IN LLL _iacentifier o_o 
\ 


- 
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415. Conditional compilation 


The facilities for conditional compilation that COBOL and 
PASCAL. have provided are now available in SPRITE. Each 
bootean type CCI Cexcept “TITLE” and “CONTENTS®) have 
been implemented an its own boolean stacks and S$POP 
option has teen added. when SSET or SRESET is useds the 
previous value of each boolean option specified will be 
Stacked, and the current value will be set according to 
the boolean expression or caefault value. There are atso 


up to 12 user-defined boolean options. The SET syntax 
is: 
GC «6 aga eeti ieee cen Ske Pe oe eta oe ee oe eS 
| / \ 
\_ SET _\LL_boolean option name____i_ / 
. ‘\ boolean / \ 
\iuser-defined option_/ \L = expr _/ | 
, 1 
boolean expr 
| 
| 
Nace ct et ee MORUGS 9 Fe ens oe hee 
\ / \ 
GN zee nn oth ce FALSE tse a Fe Bo ee / ] 
| | 1 
| sess. OR: cS I 
{ / \ | 
to Yee Ven Ee AND. 8 ON ot Oe ion ee i 
1 / \ 
NON ee ee ee boolean option name___/__| 
\ 4 \ user-defined / 
\. not _/ Nice is es eption_____ / 


The boolean option name and user-cefined ception name in 
the above boolean expression must be declared before they 
can be referenced. The $PCQF option discards the current 
setting of each option in a List of boalean aptionse and 
restores the immediately previous setting. You witl get 
a syntax error if you hvae too many POPs. The POP syntax 
is: 


\_ user-defined option _/ j 


, 
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The RESET syntax iss 


j / \ 
Ne RESET___V____ boolean option name _____ | eee 
\ / \ 
\__ user-defined option ___/ | 
| 
Exagole: 
$$ SET RELEASEVERSION = FALSE Z Change to TRUEs when 
e % switch to release version 


$$ SET OMIT = RELEASEVERSION % Instead of using “2% COM;* 
dbwrite.string (......-)2 


o 


dbwrite.string (....0.22.)7 
$$ POP OMIT % Instead of using *% MOC;" 


Debug source can be surrounded with “COM and “2ZM0C%. 
To delete the debug code from a release versions one 
would then change these to “COM* and “MOC". With 
conditional compilations one can achieve the same thing 
by changing a single liner as shown in the above example. 


16. Summary of virtual file utilization 


Statistics of each virtual filets high bound, togical 
1/0, physical I/04 size Cin digits) and overall hit ratio 
are now available. To have this information and CPU time 
for each pass» use a lower case “j" in the second program 


parameter 2: <compiter name>/dummy/j 


17. Maximum modules 


SPRITE now altows a maximum of 250 modcutes in one 
program. "h 


18. EXTENDED ontion 


The EXTENDED ecption allows a Large program to address 
over one million digits. When this option is sets the 
internal representation of pointers witl be ? SN Crather 
than an address controller digits hex "C“% and 6 digits of 
address). 


To take advantage of this new features you must set $$ 
EXTENDED in-your MID and use the SYSTEM file produced to 
recompile all the modules for that program. Remembers 
you don't need to set this option when you compile your 
modules. Your must bind your program with the €===== 


ms 
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series of the intrinsics Libraries. 


19. Enhancement of one-dimensional array operations 
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It is now legal to move a one-dimensional array (stice) 


to another one-dimensional array (slice) provided 


that 


both arrays (stices) have (1) the same number of 


elementss and (2) the equivalent elememt type. 


For parametric arrays and variable array slices, 


SPRITE 


will generate optional run time code to make sure the 


number of elements in both arrays is the same. 


example: 
TYPE . 
PLARRAY (no 1..50) = ARRAY £1..n0] OF ELEMENT? 
VAR ; 
array ARRAY (€1..10] OF ELEMENT» 
array2 ARRAY C0..9]3 OF ELEMENT» 
p_array PTR TO P_LARRAY; 
array? £€1..5] := array2 (4..81]3 
Pp_arraya 2= arrays 
Plarrayd v= array2 Ci..jd2 


20. FIND statement warning 


SPRITE now puts out a warning for the FIND statement 


under the following two conditions: 


(1). When the unit size of the find key is bigger than 


that of the find primary. 


(2). When the types of the find primary and the find 
key are both type subrange and the range of the 
find key is not completely within the range of 


the find primary, 


This is because SPRITE coerces the find key to the 
of the find primary. Optional overflow testing or 
checking code witl be generated under- the 


type 
range 
above 


conditions. This cptional coce wilt be deleted when you 


bind together a non=-debug version of your program. 


This 


may produce strange resultss such as a false match for pa 
< keye where key is all Fs because of the coercion 


failure. 
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MAXRECSIZE is no Longer a required attribute for port 


files at 


declaration time. Its default vatue is 19998 


bytes, if it is not declared. 


22. Direct buffer io for PORT files 


SPRITE used to allocate a buffer for each port fite 


declared. 


Input from and output to the port file was 


then done by moving data between the buffer and the 
user*s record (work area). This approach requires extra 
space for the buffer in aadition to the space for. the. 
user’s work area. To save the space for the buffer, 
. SPRITE no tonger allocates a buffer for each port file. 


Port I/0 


is now done directly from the user's work area. 
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Linked list FIND statement 


The tinked tist FIND statement provides the ability to ‘ 
search a linked List for an element which satisfies a 
specified condition. After the search is performed, one 

of the two alternate groups of statements is executed 
depending upon whether or not the search was successful. 

The syntax is: , 


find statement 
i 
\V___FINDO___ find pointer spec ie find control_____ 
\ 
ea ca Se tea sah eg sh ans ete es cae ee het ht tS ne ce ene I ce / 
/ 
NU WHERE_ find condition________ 
\ 
Fe ae ah a sc he a a recat / 
/ . 
VI THEN statements___ELSE___statements___DNIF_____ 
\ / \ 


The find _pointer_spec clause specifies the statement's 
result pointer. It is either local or external. LOCAL 
means a statement-local variable Cidentifier) whose value 
and scope are avaitable only in the THEN part of the 
statement. LOCAL is the default. EXTERNAL means an 
externally-declared (to the statement) variable (primary) 
which is a pointer to the type of the List element and 
which on ao non-hit will receive the nil pointer. The 
syntax is: 


find pointer spec 


| pointer: 
Noe at ee ee ee identifier______ 
YN VLULLOCAL___/ pointer: / \ 


\ULLEXTERNAL_____ ___primary___ _/ | 


The find control clause specifies the type of the search 
to be performed. The syntax is: 


find control 


| predecessor pointer: 
Neo fect te ee WITH WL identifier______ 
Ne eee te ES / \ 
ee a a cet ae ae Nt an eat, Te deh / 
/ List pointer: 
\L_FROM___ primary ____ USING___link field __~_ 7 


Link field 
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| / field name: \ 
NF 2 a Next eS identifier 


A predecessor pointer nay optionally be defined. It is 
of type PTR TO PTR TO <list element type>. It points to 
the link field of the element which precedes the element 
satisfying the find condition. The predecessor pointer 
allows the programmer to delink the found element or 
perform other manipulations requiring access to the tink 
of the preceding element. If no elerent in the tist 
satisfies the find conditions the predecessor pointer 
points to the Link of the last element. If the list is 
emptys or the first element satisfies the condition, it 
points to the list head pointer. 


The list pointer primary is a pointer to the first 
element in the List te be searched (the List is 
terminated by a nil Link field). The tink field clause 
specifies a List of field selections which are to be 
applied to the list element to get the field that points 
the next element in the List (i.e. the Link field). 


The find condition specifies the condition which the 
element being searched for must meet. The syntax is: 


find condition 


bit maske 


| 
4 
[\.. ANY_LONE_BIT_LIN -__ find primary___MATCHES____expr___ 
[VL NOLONE_BIT_IN 7 \ 
! i 
{. key: 4 
\__find primary ________ Sy DORA expression______ { 
Voe. [COU LL \] 
(Nes St FI { 
i ee <n A | I 
|. ee nn Ae | { 
\ >= / } 


If the ANY_ONE_BIT_LIN or NO_LONE_BIT_IN form is useds alt 
corresponding bits in each find primary and the specified 
bit mask expression are examined until an element is 
found which satisfies the match condition. A match 
occurs if any CANY_ONE_BIT_IN) or no (NO_LONE_BIT_IN) pair 
of corresponding bits are both set. The bit mask must be 
a fixed Lenath hex string the same size as the find 
primary. 


If a relational form of the find condition is useds the 
array/list is searched for an element satisfying the 
relational condition. 
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Prog.read timer and mcep.set_timer update 


Prog.read_timer"s return type and the parameter for 
OMEGA’s version of mcp.set_timer were changed to 17-UN. 
This complies with the revised specifications for OMEGA's 
ROT and STT opcodes. 


INTs APE» WHR 


The following new standard procedures have been added to 
implement OMEGA’S new INTs APEs and WHR opcodes: 


mcp 
MOD 
interrupt % INT 
PROC; 
make_page_table_entry_unused % APE OO 
PROC (descriptor UNIV P_LSTR_8_HEX), 
copy_page_table_entry : . % APE 01 
PROC Csource_descriptor, 
dest_descriptor UNIV P_LSTR_8_HEX); 

% user-defined, 8-digit structures 

% describing which PTE"'s are involved 

X% (descriptors themselves are not changed) 
update_reinstate_list_address ; % WHR OO 


PROC (new_address UN_8);7 


update_snap_picture_address _ & WHR O1 
PROC (new_address UN_3)2 


update _memory_error_address “% WHR D2 
PROC (new_address UN_3);- 


read_clear_processor_status % WHR O03 
PROC Cstatus VAR UNIV P_LSTR_2_HEX);, 

% user-defineds e-cigit structure 
DOM, 


Prog. lock_conditional 


There is now an exceotion clause for the standard 
procedure prog.lock_conditional. [It works just tike “IF 
EOF" for I/0 standard procs. The syntax and semantics 
are as follows: 


tock conditional exception clause 


' be Slt 
i 
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wwe eS ewe = ee 


{ 
AL_IF_ sE@6K60__THEN__statements___ELSE__statewents___FI__ 
TN NSE Nocatee eee ces / 


sg 


prog.elock_conditional Clock) % no semicolon 
IF SH). FNL 
THEN % it was already tocked 
do_something_else_instead-s 


ELSE z now I have it 
do_something_with_its 
FI; 


Se MCPCAL and AGOVL calls 


When calling an overlay module entry points SPRITE now 
generates a VEN to either MCPCAL or B8GOVLs dependina on 
where the call is from. If the call is from an overlay 
modules SPRITE generates a VEN to MCPCAL. Otherwise, it 
generates a VEN to S8GOVL. The overlay modules are 
specified in the MID by the overtay statements as 
follows: 


overlay statement 


\ modules ident 


owes wa wawoeme ‘wae wean’ oa ewe ow e222 eee em 


bo Scale_ptr 


The standard function scale_ptr can now be used to 
initialize data block pointer variables at compile time. 
Atsor a call to scale_ptr may now aopear wherever the 
context clearly defines the resulting pointer type (such 
as the actual parameter to another procedure). (The 
above is also true for SSMCPVI.) 


Te INCLUDE markers 


The following INCLUDE markers have been added to our MID: 
general_and_vf_defn-e ‘ 
max_image_and_text_length, 
position_info_type, 
symbol_table_and_token_defn,s, 
file_attrisymbolics. 
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id_and_attr_defne 
vf_file_data.- 
jcem_defn_ones 
iemidefn two 
jem_put_modules 
symbol _table_module. 
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Ve put.go_to_cotl (1) 


When called with a parameter of 1 Cone)s “put.go_to_col” 
“now correctly recalculates “"otechar_used” and 
“ot.char_left™ in the “put_line_info™ DATA area. 


2. dbwrite and f_dbwrite labels 
The dbwrite and f_dobwrite modules use put.string to print 
the label fields» causing labels tonger than 100 


characters to be incorrectly printed. 


The MIO for these modules has been changed to limit 
labels to a maximum of 100 characters. 


i 
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put.swap_line 


A new procedures “swap_line” has been added to the “put” 
module. This allows a program to construct two or more 
lines simultaneously by exchanging atl of the information 
in the “put_line_info™ DATA area. 


The “dbwrite”™ module now uses this procedure to create 
its output lines while preserving whatever the rest of 
the program has done with the “put™ module. 


durroughs Corporation = Intec=0ttice correspondence 


§ Corcorate Unit | Locatian — $ Dept. 

- 4 Camouter. Systems Grouo I Pasadena i Proa. Activity ; 
ON tet aa we es et te tet te rns ee ee re nf oe en ee ot een enn =| 
(02) Naae “| Date ' 

| Procramming Activity SPRITE Users | Naeen 26» 1982 t 
aa ak ta a aig ed aac a el aa ac aa ata a aahntetaiatateea bates i 
1 Froe §' Dept... & Location ! 


4d Belinda Wilkinson J. Architecture Oeopartment oo 


Subject? New Release of SPRITE and SPRITX 


ii 


On Tuesdays April 6» 1982» SPRITX (6505X) will become SPRITE and a new 
version of SPRITX will be available. 


The new version of SPRITX fixes buas (see Appendix A) and provides new 
features (see Appendices 8 and C). 


The new SPRITX is version number 6601 and is not MID-compatible with 
version 6505X or earlier versions. This inconvenience is necessary due 
‘to changes within the SYSTEM information, ‘ 


Both SPRITE and SPRITX emit Tyoe III Format 7 ICMs. However» ICMs 
created by SPRITE are not compatible with ICMs craated by SPRITX» as the 
interface to the debua madule has chanced. If you wish to use SPRITX» 
‘yg mguat pecemoile your MID» all of your MODs» refilter your BPL-created 
[CMs with the new version of FILTX» and unvtruncats bind=deck nares 
which are ocreatar than 24 characters in your program source before you 
bind your cade file. 


The Ys=s== series of the intrinsics librarjes are compatible only with 
SPRITEwemitted [CMs. The X===== series of the intrinsics libraries are 
compatible onty with SPRITX-emitted ICMs. Intrinsics enhancements and 
bua fixes will be only in the X===== series (see Appendices D and £). 


Please’ ‘report any oroblers to -aajember “of the Implementation Systeas 
Saction: for screening before efitering thes into the BUGS system. Bring 
the aporooriate listines and whatever else'we miaht need to determine 
that the problem is truly a SPRITE bug. Atl actual buas will be entered 
into the BUGS -system by the reportina ‘users 


Bld | 


Belinda Wilkinson» Manager -- 
Imolementation Systeas Section 
Architecture Department 


( is release document contains: 
APPENDIX At BUGS FIXED 
APPENCIX Bs GENERAL ENHANCEMENTS 
APPENOIX Cs -MCP“RELATED ENHANCEMENTS 
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Eliminate unnecessary calls to the "move™ intrinsic 
(82708) ' , 


Certain snecial conditions no longer cause the comoiler 
to oenerate unneeded calls to the move intrinsic. 


Variable “proq.bet™ parameters restored after 8CT 


If you use a Variable strina of hex as the parameter to 
oroa.bct» SPRITE now moves the strina back to your 
variable after the BCT has been executed. Thus you may 
now access any information which has been changed by the 
MCP as a resutt of the BCT.. 


RETURN statements disallowed in MACRO definitions 


You may not define MACROs which contain RETURN 
Statements. This used to cause SPRITE to aenerate an 
exit from the procedure which “catled” the macro. 


DATA deciarations cause incorrect syntax errors 


The last variable ‘in a OATA declaration will no longer 
cause certain things (such as a FILE declaration) to be 
inccrrectly found to have syntax errors in some Cases. 


Hean overflow detection (82670) 


The code SPRITE aenerates tc detect heap overflow new 
checks to see if the next available hean location is »> 
the heao Limit Crather than >= the Limit). 


Bad code for ptr function when destination indirect 


SPRITE now aqenerates correct code for the otr function 
even when the destination has indirection involved. : 


Revised heao/stack collision code for HIGHHEAP (82717) 


If you set the HAIGHHEAP dollar card ootion in your 
module» SPRITE now aenerates procedure orologue’ 
heap/stack collision code which calls err.error (Cuntless 
the ERRORCALLS option is resets» in which case it 
Generates a hex "EC” oocode to cause 4 processor error at 
run-time). Previously» SPRITE unconditionally generated 
the hex "EC™ opcode. 
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RESET multiple dollar card ooticns 


Page 


If you use RESET on a dollar cards jit will now avoly to 


all of the follewina eptions on the card 
soecify. SET). Previously» just the 
reset while the remainder were set. 


Cor until you 
first option was 
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"fitter™ for unused fields in a structure definition cr a 
data declaration 7 


You may use the word “filler*™ as an identifier anywhere 
in a structure definition or a data declaration. You 


‘cannot reference the parts of the structure or the fields 
in the data declaration thus) defined. You may use 


"fitler™ any number cf times in a g@Qiven 9 structure 
definition or data declaration. 


The word “filter™ is now a oredefined identifier in the 
SPRITE lLanauage, Use of this word outside of structure 
definitions or data blocks will cause syntax errors. 


Example: 
TYPE JUNK = 
~ §TRUC 
first_cart 0..99 , 
filler STRING (4) OF HEX » 
aoodies BOOLEAN » 
filler CHAR , 
fiiler 0.-9999999 
CURTS> 


Reminder: the compiler still generates its own internal 
fillers (or pads)? as neededs. In the above examole» it 
would allocate { dieit after “goodies” to put the CHAR at 
a@ pad 2 address» and it would allocate 3 digits after the 
Last "filler to make the size cf the structure mod 4%. 


Standard functions "zone_index_any”™ and “"zone_index_none” 


These new functions (each requirina 2 EBCDIC strinas as 
Parameters) allow you to scan strinas for particular zone 


digits. They serform in a manner similar to "index_any® 
and *index_ none» save that onty EBCDIC strings are 
allowed as oarameters. They a@enerate SZE (scan zone 


equal) and SZU (Scan zone unequal) machine instructions. 


Zene_index_any returns the index of the first character 
in strina 2 which has a zone digit equal to a zone digit 
in any character of string 1. If none is founds it 
returns a zero. 


Zane_index_none returns the index of the first character 
in string 2 which has a zone digit not equal tc a zone 
digit in any character of strina 1. If none is founds it 
returns a zero. — - 


For example» 


z 


~ 
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; fo 
fe number_ix = Zone_index_any ("0"» card_image); % find 
% first character "0" thru %9" Calso hex FA» etc.) 
IF zone_index_none ("AJS"s» word) = 0 
THEN Z% there are no uopercase letters in this word 
Z-. MAP dollar card option 
MAP is a new aption which you may set or reset on a 
dollar card. The default value of this ontion is reset. 
Hithin the range of SPRITE source code that this option 
is set» the outout Listina lines of STRUCture definitions 
and. DATA. definitions are modified to show the internal 
details of the structure or the data block... 
The card~jmage oriain field of these output Lines 
(normally “"EDITOR*» "INCLUDE" >» “PATCH™» etc.) now 
Contains 3 coluans of information .as follows: 
1. size Cif BIT» then *.* olus allocated bit) 
2. offset 
7 3. block number (Conly for DATA definitions) 
” is 
4 For examoles 
TYPE 01010000 EDITOR 
STR1 = STRUC 01011000 EDITOR 
a BOOLEAN? 01012000 1 0 
bs» 01013000 8 1 
c BIT» 01014000 4 1 
d HEX» 01015000 1 2 
e CHAR 01016000 2 4 
CURTS? 01017000 EDITOR 
TYPE : 019018000 EDITOR 
' STR2 = STRUC 01019000 EDITOR 
f 002999» 01020000 3 0 
. @ STRING €99)» 01021000 198 4 
h STR1 01022000 8 204 
- CURTS3 01022000 EDITOR 
data 01024000 EDITOR 
DATA 01025000 EDITOR 
vi STRI» 01026000 8 0 54 
v2 STR2» 01027000 212 8 54 
vz CHARs 01028000 2 220 54 
ae | v4 HEX». — 01029000 1 222 54 
aa v5 BOOLEAN>s . 01030000 1 223 54 
el . v6 BIT; 01031000 8 224 54 
: 
Note: for you to get the most information from this 


Ootion» each DATA variable or STRUCture compvonent must be 
cn a seoarate source line. 
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Strinas <= 100 characters allowed as VALUE parameters 


You may now use strings of uo to 100 characters as VALUE 
parameters to a procedure. The oprevicus limit was 50 
Characters. 


30 characters of identifiers and indicants now used 


Your identifiers and indicants must now be unique within 
the first 30 Characters» rather than 24e 


NOTE: Be sure to change your bind decks in those cases 


where you oreviously had to truncate an identifier ta 24 
characters. SPRITX and BINOX now truncate jdentifiers in 
the same manner .. 


Mcve words or move alpha done where oossible 


The compiler now generates MVW cr MYA code in certain 
cases which used to be handled less efficiently. 


Standard procedure “move_words” 


This new standard procedure» which should be ysed with 
extreme caution» allows you to force the compiler’ to 
generate MYW code in circumstances which it would not 


norsally de sow 


This procedure takes two UNIV ogoarameters: the source 
field. and the destinatjon field. No compile-time or 
fun~time checks are made to sae if these two fields are 
on MOO 4 addresses» have MOD 4 sizes» and have the same 
size. _ . 

It {s YOUR responsibility to ingure that the MVH will 
function correctly when Your arograa cuns! The SPRITE 
group. will react with disoleasure if you report “buas" 
which turn out to be caused by misuse of this standard 
procedure. 


For examples 


move_words (source_fields» destination_field); 


Clarification of SPRITX Release Meno 
Apoendix Bo Items 6 and 7 
Move Optimizations 


Most oeople thinking of uSsSina the new standard function 
-move_words will have no need of it. SPRITX new cptimizes te 
MVW whenever it can atuarantee at compile time that it will 
work. As a auide to those wre are interesteds the exact 
corditions under which SPRITX makes this optimization are 
spelled cut below. 


Both overards must have the same size and controller. “The 
size and address of both cperands must be mod 4. (This 
includes a mod 4 offset from the beaginnina of a data block» 


Pe, for exampte.) -Both operands must be fixed tenath. Unless an 
( : operand's typve is mod 4» it cannot use indexine Cexcent IX3» 
7 which is always mod 4) ofr indirection. Furthermcres if. 


indirection is involved» the final controtler must be UN, 


f 


Fon 
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Initializati 
Variables of 
may now be 
semantics an 


SYNTAX: 
SEMANTICS: 


RULES: 


POI 
KI 
( 


{ 


where 


POINTER 


REFERENT 


For example» 


V.AR 
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on of pointer variables 


tyoe pointer.(but pot vointer to orecedure) 
initialized at compile time. The syntax» 
a rules ares 


ptr_variable PTR CTO] <access> <tLevel> 
<any_type CSTATIC] 2= ptr (referent); 


Ptr_variable is initialized to pnoint to 
referent. 


(a) Subject to atl rules that aonly to the 
use cf otr functionw 

(b): The address cf the referent must be 
determinable at compile time. 

(c) The followina table shows the kinds of 
of oointers and the vatid referents 
each kind of the pointer can point to. 


REFERENT KIND 


NTER : 

NO (2) €2) (3) (4) (5) 

A) @& YES t YES 4 néa n/a ft n/sat 
 ebatapatatebel Rebetatetatatel Katetatatebetel Retetattateted Ketetataatatel 

B) § YES t n/a t YES t YES ¢t NO | 
 etutetatatated Retatettetatel etahatatanetel neetentateded Reteetatatel | 

C) i YES { n/a J YES | YES ! YES | 


KINO 

CAS OData block pointer variables 
(B)s STATIC pointer variabtes- 
CC): Stack pointer variables 


KIND 

(1): Constants 

(2): Oata block variables (for the same 
block only ) ‘ 

(3): Oata block variables (for the shared 
blocks only ) 

€4)3 STATIC variables in the same procedure 


only 
€5):s Stack variables in the same procedure 
; only : 
junk JUNK » 


junk _ptr PTR TO JUNK 


t= ptr Cjunk)> 
otr_ten PTR TO CONST 1,..10 ‘v= 


ptr €10);3 
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INTENTS dollar card aption 


fhe CONTENTS option has the same format as the TITLE 
ption. However» the string you specify aopears only in 
“the taDle-of=contents at the end of the compile Listing. 
You. may use this option for easily findina thinas within 
your MIOs and modules withceut affecting your present oage 
dheadinas.. For examples 


$8 CONTENTS "3.7 Virtuat File TYPES" 


MODULO allowed for data types 


MODULO allows you ts soecify the modulo boundary at which 
a data object is atianed.. 


The syntax for the MODULO construct iss 


tyoe 
i 
oN MO OULD 


SREP Ne _... integer ____ non=mod-type = 


where non=modstype is an indicant or any type which does 
not not start with "MOOULO"™ (j.e. VAR junk MODULO 4 
MOOULD 2 BOOLEAN is incorrect). If nonsmod=tyoe is an 
indicants you may define that indicant either with or 
without its own HOOULOD requirement, 


The integer must be an inteaer literal in the range 
12299996 When generatina ICMs for use by BINDER» this 
inteaer will be restricted to 2 or 4 (this restriction 
does not apoty when the MCPVI ontion is set). 


Whenever the MOOQULO construct is specified» the resultina 
modulo is the least’ common multipole ¢LCM) cf the 
scecified modulo value and the existina modulo of the 
modified tyne. Thuses the modulo for MOOULO 3 EBCDIC 
would be 6. This means that modutlos can never be lowered 
by using the MOQULO construct. 


The modulo of an aggregate (a structure or data block) is 
the LCM of the medutos of atl its comoonents. For 
. @xamoles the modulo of STRUC x MODULO 3 HEX» y MOOQULO 5 
| HEX CURTS would be 60 (don't forget that the default 
moduto of a STRUC is 4). -This example illustrates that 
the user of oddball madulos will oay a soace penalty. 


It -#s an error if the uodated moduto vatue of a 
stackv-relative item exceeds 4» or if the updated modulo 
value of any other item exceeds 9999. 
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The type checking has been changed so that items with the 


same STRUC base type» but with different modules» are 
compatible. : 
For example» 
TYPE BOOLEAN_MGO0_4 = MOOQULO 4 BOOLEAN; 
junk 
- DATA 
stranage_bit MOOULO 2 BIT; 
TYPE INTERFACE = 
STRUC 
“— first_thinga BOOLEAN 
stranae_thina MOOULD 4 0..3 
other_stuff . STRING (8) OF HEX 
CURTS? 
VAR .x INTERFACES : 
y MOOULO 8 INTERFACE; 2% x%* and y are compatible 


Heao overflow check code is now optional 


The compares branch» and call te erreerror are now marked 


as ootional code. 


New pert file attributes 


The foatltowinoe port file attributes are now available for 
your Use. They appty agnily to perts (not to subports)»s 
yet these fields have fresh information available for 
your tnaquiry after every port or subpert operation. 
; Port 
Attribute Type Get Set 
ATTERR. ig STRING (2) OF HEX Yes No 
MYPORTAOORESS STRING €4) OF HEX Yes No 
‘PORTRESULTS STRING €100) OF HEX Yes No ‘ 


, 
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The following enhancements apoly only if you set the 
t MCPYVI ootion in your HID. 


Pointers are 7 SN 


The internal reoresentation cf oointers is now @ SN» 
rather than an address controller digit» hex "C"» and 6 


diaits of address. 


Pointer arithmetic with standard functions “ptr_add™ and 
"otr_ sub" : 


Two new standard functions» ptriadd and: ptr subse allow 
you to perform seme basic oointer operations. These 


functions» which should be used with extreme caution» 
helo produce better code when stepoing through an array 


or a string. Their syntax» semantics and rules are: 

SYNTAX: pointer_1 := otr_add (pointer_2> num); 

SEMANTICS: pointer_1 *= pointer_2 + num * size Cpointer_24a)5 
where size (pointer_23) is the size of the 


referenced type rounded up to a 
multiple of the modulo of the type. 


RULES: (1) Pointer_1 and pointer_2 are oointers with 


equivalent referenced tyoes. 

(2) Parametric pointers are not allowed. 

(3) Pointers to procedures are not allowed. 

(4) num is any numeric exoression whose value is 
in 0629999999 


TAX: pointer_1 := ptrisub Cpointer_2> num)} 
SEMANTICS: pointer_1 2= pointer_2 ~ num * size (pointer_24a)} 


where Size (vointer_22) is the size of the 
referenced tyne rounded up to a 
multiple of the modulo of the type. 


RULES: Same as that of PTR_ADD. 


@ae WARNING #@# No compile time or run-time checks are 
made to protect the intearity of the pointer. It is your 
Fesponsibility to ensure that these functions will work 
oroperly when your proaqram runs. 
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These port file attributes are now available» but onty 
fer the use cf BNA'ts Port Manager program. They apply 
only to subports (not ports). 
Subport 
Attribute Type Get Set 
HISCODEFILEFAMILY STRING (6) Yes No 
HISCODEFILENAME STRING €6) yes No 
HISCOMPRESSIONFLAG STRING (1) OF HEX Yes Yes 
HISFLOWSTATUS ’ BOOLEAN No Yes 
HISMYNAME STRING €100) Yes No 
HISNULLFLAGS STRING €1) OF HEX yes No 
HISOPENTYPE 0 we 99 Yes No 
HISPORTADORESS STRING €4) OF HEX yes No 
HISSUBFILEERROR NCERROR» OILSCONNECTED» No Yes 
DATALOST» NOBUFFER? 
NOFILEFOUND> 
UNREACHABLEHOST 
HISSUBPORTADORESS STRING €4) OF HEX Yes No 
HISUSERCODE STRING (17) Yes No 
HISYOURNAME STRING (100) Yes No 
PLMCHARACTERSETS STRING (1) OF HEX Yes ' Yes 
PLMMATCHRESP BOOLEAN No Yes 
PLMMAXMSGTEXTSIZE 2 ee 19998 No | Yes 
PLMMYCCDEFILEFAMILY STRINE (6) Yes Yes 
PLMMYCODEFILENAME STRING (6) yes yes 
PLYUMYHGSTNAME STRING (17) Yes Yes 
PLMMYNAME STRING €100) Yes Yes 
PLMSECURITYGUARD STRINE (6) Yes Yes 
PLMSECURITYTYPE GUARDED» PRIVATE> Yes Yes 
PUBLIC 
PLMSECURITYUSE Io Yes Yes 
PLHTITLE STRING (17) Yes Yes 
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Le 


Generates assembly code for MCPGEN 

SPRITE creates for you an 40 blocked 5 disk file 
containina card images jin ASMBLR format. The internal 
name of this file (for label equaticn) fis MCPASM,. 


The contents of this file is for use with anew flavor of 


_MCPGEN (currently named “MCGXbp™”). 


Procedure pointers» calls to SPRITE'Ss intrinsics» and 
GENERATE EXTERNAL are not currently supported. <Attemots 
to use these will cause syntax errors... 


SPRITE still oroduces an ICH file» even thoush it is 
currently useless. : 7 

ALIAS statement 

The ALIAS statement atlows you to equate SPRITE names 
with MCPGEN Labels. This statement goes in your MID» and 
you may not use a KNOWS List with this statement. 


The syntax of the ALIAS statement iss 


alias statement. 
{ 


1 / assembly name: \ 
\ ALIAS \ sprite name _. = __ strino Literal / 


== wee ‘oo am! om 


sprite name 
{ 


4 alias primary: 
\u. ident or indicant _._ alias selections ____ 
\ een ae oat an / oN 
{ 
: { 
alias selections 
| ; AN 
an | const array or strina seiection: ' 
Neo Nee 1 a, — @xor a ees De ae 
\ ; / \ 
VU e LL proc or fieldsident ___ at t 


The assembly name cannot be mere than six Characters 


Lona. 

The alias primary must be either: (a) a modules (b) a 
data variable (or the entire bleck)» or €€C) an indicant. 
Dependina-~ on which kind of orimary is used» the ALIAS 
statement serves any of three purposes: 


evonewmoc ow 


(a) It specifies the 
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label for SPRITE ta 


use 
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when 


definina and catlinag a procedure (or module). 


This avoids the default "Pmodule#foroc#™ 


Cor 


"Mmodule#)» Which can change when a new module or 
‘procedure is added (Ceven if just to a knows 


List). 


Ob) It generates an EQIV Cor BIT#) command to declare 


a tabel for data 
the default 


in a data btack. This 
WPOblock#offset*™ Cusina 


field)» which can chanae when the block 


or a new data 


block is added. Howevers 


modules still use the defautt label. 


Cc 


avoids 


the ine 


hanges 
SPRITE 


(c) It generates an EQIV Cor BIT#) command to declare’ 
indicant Cand its setections). 


a label for an 
This Label is 
containing the 
indicant's type. 


For examples 


used with an index 
address of a variable 


0 


reaister 


f the 


ALIAS preterm_module.terminate_this_program = “*PRETRM"; 
ALIAS sm_io = “SM=I0", 
k bo = "KBO">;3 
- ALIAS Q_ELEM = "Q-AREA%>» 
Q_ELEM. next = FQ-LINK"™ > 
Q_ELEM.io_deser = @O=DESC > 
Q_ELEM.iao_descr.opcode f1:3:2)] = "Q=O0P" ; 
ALIAS q_elen = "Q/AREA™ > 
q_elem.next = "Q/LINK&> 
q_eles.io_descr = "Q/D0ESC™> 
q_elem.io_descr.oncode €1::2] = “aQ/soPpr ; 
ALIAS MASTER_AVAIL = "MSTTAV™> 
MASTER_AVAIL (0) = "MST“EL">» 
MASTER_AVAIL (0) .avail_disk_addr = *"MST"SS"> 
MASTER_AVAIL CO] wavail_disk_addrseu = "MST~EU", 
MASTER_AVAIL (13 = "MSTLEL™; 
OVERLAY statement 
The -OQVERLAY statement allows you to sonecifiy which 


modules are located in the MCP's overlay area (as onoposed 
odules). This statement may only 


to glebat or extension m 
be used in your MID. SP 
orocedures in these om 
MCPCLL in order to make 


RITE must handle calls -to 
an NTR to 


odules by aeneratina 
the overlay present. 


entry 
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The syntax for this statement iss 


overlay statement 

t we Ses a Ae Deh Das A 
{ / \ 
! i module name: 1! 
\___ OVERLAY \ ident / 


comes. ‘ coe owemceowen © ae an 


The modules named in this statement must already have 
been defined in a MQD statement. For example» 


OVERLAY keyboard_cuts. preterminates. 


MCPCLL cade for calls tao procedure in overlay (MCPVI)} 


Whenever you make a call to a procedure which is an entry 
peint into a module which is in an overlay (known by 
means Of the OVERLAY statement)» SPRITE will generate an 
NTR to MCPCLL with the appropriate parameters required by 
MCPCLL. 


If the module from which you make the call is not in an 
overlay» SPRITE will orint a warnings since MCPCLL calls 
froe alobal are usually an error. 


PROCESS_RUN statement 


The PROCESS_RUN statement allows you to initiate an 
asynchronous call on a procedure in an overlay. The 
syntax for this statement js: 


process run statement 
{ 
t 


4, proc catl: strina: 
\__ PROCESS_RUN 


orimary USING simole exor 


N 


The orocedure cali includes any necessary parameters. 
Note that alt passed parameters must be VALUE parameters» 
that the total size of all oarameters may not exceed 26 
digits» and that no function may be called. 


The strina is the particular entry point into the MCP*'s 
BEGOVL routine which you wish te call. You will aet a 
warning if it is not one of the following: 


BEGOVM BEGOVH BEGOVL BEGCTL 
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For examoler 


PROCESS_RUN oretrmeproe_err Cinv_read) USING "BEGOVL™; 


on REMAPS declaration 


The REMAPS deciaration permits you ta redefine the way 
that a DATA block looks» so that you may save soace (Cand 
possibly restrict knawledce of various redefinitions) 
without resorting to omitted tacfjeld structures, 


“You may use this declaration anly in your MID. The 
syntax of this declaration (similar to a DATA 
declaration) is: 


remans declaration 
i ma 
{ remap OATA name? taraet DATA names 


Vi «(ident __ —— REMAPS __ ident 
\ 
= emai ECE EE eer eee NID. 6 | 
/ 
¢ c \UU variable tist _ 
os ‘ 


For examples 


em_io 
OATA 
basic_definition STRING (200) OF HEXs 


sm_io_for_keyboard_outout 
REMAPS sm_ia® 
keyboard command BOOLEAN» 
messaae_number 00-9993 


To access variables in a  REMAPS declaration» use _ the 
remap data name in a SHARES List» just as you would for a 
DATA declaration. 


9. Standard function “scale_ptr® 


You may use this standard function to scale a number by 
. some vower of ten and convert the result into a oointer. 
r) Cm This function may be used only in, an assignment statement 
- whose lLeftwhand side is a painter to a nonparametric 
type (note: no other type checking is done cn this 
pointer). 


“APPENDIX C - MCP ENHANCEMENTS . Page 15 of 17 


The scale_ptr function requires 2 oarameters. The first 
is the number upon which you wish to cperate, The second. 


is a positive integer constant cower of ten by which the 
first is scaled (for exampoles a value of 2 means multioly 


by 100). 


You will aoet a syntax error if the maximum possible value 
of the scaled number exceeds the size of the largest 
pessible pointer address. - 

For example» 


“VAR program_ptr PTR TO STRING (100000) OF HEX} 


program_ptr. 7= scale_ptr (mixsbase_addr_in_kds» 3) 
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“erreerror”™ starts error message on new. Line 

The runctime error message you get from err.error witl 
now start at the beainnina of the Lines even if your 
proaram uses "put" module procedures. 

Debug prints EXT Lines when "db_monitor_all™ is set 

If you program sets db_monitor_alls» your outout  tlistina 


will now. show orocedure EXT lines as weil as procedure 
NTR lines. 


Better statistics from statistics version of debua 


You will now get the correct active time for the oprosram 


entry procedure. Previously» the active time for this 
procedure miaht be off by a bit. 


If you had explicit catl tc debuassummary in your 
proaqrams this bua might alse have affected the active 
times of other procedures. 


This bue could also cause processor errors Cinvalid 
arithmetic data) on B2900/3900s. 
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Debua terminates on errers in extended fnput 


If you use the "//X" option and your extended input to 
debug has errorss debug will now immediately terminate 
the execution of your proaram, 


2s Debug checks for NTR / EXT mismatch 


Debug now checks to see if your program has mismatched 
NTR / EXT problems during execution. If sos». it orints 
one warnina message the first time that it detects this 
problem. , 


3. The “hrtime" intrinsic has been defeted 


Havina received no reaction to cur warnina jin the last 
SPRITE release Letter» we have now deleted the "“hrtime™ 
module from the intrinsics which SPRITE suopvorts. 


Burroughs Corporation._.______-_-_----_--- Inter=Office_Correspondence 


{ Corporate Unit {| Location {| Dept. 

j Computer Systems Group | Pasadena | Prog. Activity 

 hecelute we eietanateta conic iatatacee tereaniepsonmen ame aiaiemmaaiar trocec wenn ec een nee ennn n= 
TO:! Name { Date 

| Programming Activity SPRITE Users { October 10 19385 
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{ From | Dept. & Location 


1___ Charlie _C._ Chane l___Architecture Department... ee 


Subjects 


New Release of SPRITE 


On Mondays» October 144 1985+ a new version of SPRITE and 
anew set of S$===== and E===== series of intrinsics 
Libraries will be released for in-house use. 
version fixes bugs (see Appendix A and DD) and 
new features (see Appendix 3- Cv and £E). 


This 
with 
Inconvenience 


The new 
provides 


SPRITE is version 1000 and is not mid-compsatible 


version 6700 or earlier versions. 


This 


is necessry due to changes with the SYSTEM 


information. This requires that your MIDs be recompiled 
before any of your modules will recompile. 


Th 


e 


format) and type 4 COMEGA style format) ICMs. 


type 


& ICMse you have to compile your MIDs with 


and use “FILE ICM4 = " instead of “FILE ICM = ™, 


Please report any problems to a member of the 


project group for screening before entering them 
BUGS system. 8ring the appropriate Listings and 
else we might need to determine that the problem 
SPRITE bug. All actual buaqs should be entered 
BUGS system by the reporting user. 


a 


Fo 


ALS". 


- 


Charlie C 


r 


more 


Cheon 


Chan 


Implementation Systems Section 
Language Department 


This release 
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APPENDIX Bz 


APPENDIX 
APPENDIX 


“APPENDIX 


A: 


Oi 
DO: 
E: 


document contains: 

BUGS FIXED 

GENERAL ENHANCEMENTS 
OMEGA-RELATED FEATURES 
INTRINSICS BUGS FIXED 
INTRINSICS ENHANCEMENTS 


new version of SPRITE emits both type 3 Cold style 


To get 
SPAGING 


SPRITE 
into the 
whatever 
is truly 
into the 


copies of this memos do “SYS COMP 8987:RM10 ON 


APPENDIX A im BUGS FIXED Page 


FIND with a key of type pointer 


SPRITE no longer generates bad code for FIND statement if 
(1) the key is afield selection through pointer 
dereference, (2) the type of the key ts pointer or (3) 
SPRITE tries to optimize the code by converting the key 
from un to ua. 


The code for indexing into arrays and sets (82996) 


(1) The SEA instruction no longer gives a false match 
when the index type is PACKED ORDERED and over one digit. 
(2) SPRITE no longer generates a SDE instruction instead 
of SEA when the index type is EBCDIC Cor PACKED ORDERED 
and over 100 digits). 


Redigit filler in front of each file buffer (33042) 
SPRITE now allocates 8-digit space in front of each 
buffer for all kinds of files instead of just the first 
puffer for PRINTER and PUNCH files. 

SXREF 


SPRITE no Longer gives the message “DUP LI3 sxxtyd DSK” 
when you compile your module with SXREF. 
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FIND with OVER and AND clauses 


The OVER and AND clauses in the FIND statement are no 
longer mutually exclusive. 


Example: 


FIND aLlotr AND a_idx 

OVER base_ptr 2.2 Limitlotr INTO array 
WHERE a_otra s:= key 

DO 


Division optimization 


Currenlys SPRITE optimizes division via truncation (MVN) 
when the divisor is a constant power of 10. The new 
SPRITE takes another step further by trading a BIV 
instruction with MPY and MVN instructions if the divisor 
is not explicitly a power of 10 but is a factor of a 
power of 10. For example, the expression “a/2" is 
equivalent to "Ca*5)/10". The result would be ai MPY 
instruction (t := a*5) followed by a MYN instruction (r 
s= t/10). 


Proc_ptr and forward procedure definition in MID 


The user can now use proc _ptr function to initialize a 
MID data block variable of type PTR TO PROC. The 
referenced procedure can be forward defined in MID. The 
parameter list and return type defined in proc ptr 
declaration must match those of the forward defined 
referenced orocedure, 


SPRITE 1/0 enhancements 


Ca) Shared files 


It is now possible to declare disk or disknack 
files to b2@ shared between different multiple 
processors. Shared files are assumed to be 
random. The user declares shared files by 
setting the ACCESSMODE to SHARED. A new file 
attribute STALEMATE was added which altows the 
user to specify the procedure to be called by MCP 
to handle stalemate coditions. It is the user's 
reponsibility to make sure that this procedure is 
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in segment 1 


File attribute descriptions for -ACCESSMODE and 
STALEMATE are as follows: 


ACCESSMODE 


DISK/DISKPACk 


Specifies the 


STALEMATE: 


DISK/DISKPACK 


Specifies the 
by the MCP to 


: Read: anytimer Write: closed 
Mnemonics SEQUENTIALs RANDOM, 
SHARED 
Default =: SEQUENTIAL 


disk access technique. 


2 Read: nevers Write: closed 
Address constant: moc _name.proc_name 
Default: none 


name of the procedure to be called 
handte stalemate condition. It must 


be a procedure without any parameters. The only 
way to get out of this procedure is by calling 
jo.exitroutine. 


The following standard procedures were added to 
allow the user do I/0's from the shared files. 


€1) jiowopen_lLock Cfile FILE); 


% Once the file is opened with “Lock”s no 
% other program will be able to open the 
% file until the locking program closed it 


(2) jo.open_lock_access (file FILE); 


% Once the file is opened with “Lock access", 


% any other 


program may open the file as 


% input but not output. 


C3) iowread_no_unlock (file FILE, 


record VAR RECORD. 
key 1202099999999d¢ 


% tock the records, read the record 
% and teave the record locked 


(4) joeread_with_unlock (file FILE, 
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(6) 


(7) 


(8) 


(9) 


(10) 


C11) 
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record VAR RECORD, 
key 10099999999), 


% Lock the record, read the record 
% unlock the record 


jo.write_no_unlock (Cfile FILE» 
record RECORD, 
key Tene VIDDODO9IIIIG 


% Lock the records write the record 
~ and Leave the record locked 


jo.write_with_untock (file FILE, 
record RECORD, 
key 100 999999999)2 


% Lock the record write the record 
%Z and unlock the record 


jo.lock (file FILE, 
key — 120 99IIDIIID)S 


% tock the record onlyr no data transfer. 
% If the record is tocked by another program, 
% the program waits until it has been unlocked. 


jo.untlock Cfile FILE, 
key 1202 9999S9999)s 


% Unlock the record ontys no data transfer 
% the program will be terminated if the record 
% has not been previously locked 


jo.seek_no_unlock (file FILE, 
: key 122999999999) 


% Lock the record, request the MCP to make the 


”% record available in the program buffer and 
% leave the record tocked. 


jo.seek_with_unlock (file FILE, 
key 12299999999) 


% Same as seek _no_unlock excent it unlock the 
% the record at the end 


Yo.exitroutine (file FILE); 
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% The only way to get out the procedure 
% which handles the stalemate conditions is 
% vy calling this procedure. 


(3) (4), (S), (6) and (7) may take the “IF INVALID_KEY 
THEN 2.222” exception clause. 
Example: 


shared_file_block 


FILE 
shared_file LMYUSE = INv KIND = DISKPACK 
STALEMATE = mod.stalemate, 
ACCESSMODE = SHARED 
Te 
SHARES 


shared_file_blocks 
jio.open_lock (shared_file)s 


(b) io.open_no_rewind (file FILE); 


This procedure is used to open magnetic tape 
files without positioning to the beginning of 
tape. This is primarily used when opening the 
second and all subsequent files on a multi-file 
reel of magnetic tape..- 


(c) fio.open_reverse (file FILE)? 


This procedure can only be used with single reels 
single files tape files. When the file is opened 
with this procedurer the subsequent read will 
make the data records available in the reverse 
record order starting with the Last record. 


(c) io.open_get_dhdr (file . FILE, 
dhdr VAR UNIV P_STR_40_HEX)2 


% dhdr must be 40 digits long 


‘\ 


~ 
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%4 for format of headers see Programmer Guide 


The io.open_get_dhdr standard procedure will Let 
the user open the file and get the disk file 
header at the same time. Following is the 
procedure description. 


Cd) iowset_buffer_addr (file FILE, 


-buffer UNIV PARAMETRIC_LHEX_STRING)> 


% modulo and size of buffer must be mod 4, must be 
% called after io.prepare_user_defined_buffer_io 


Currentlys the 

“Jo. .prepare_user_defined_buffer_io”™ adjusts the 
blocksize of the file and sets the fib_aa and 
fib_bb to point to the buffer location. To avoid 
additional code generated each time a different 
buffer of the same length is used-s the 
“jo.set_buffer_addr™ may be used to set. the 
fib_aa and fib_bb addresses without generating 
the code to adjust the blocksize. 


File pointers 


File pointers in SPRITE allow the users to make runtime 
determinations about the files used in their program. 
The syntax for a file pointer iss 


file pointer type defn 
| 
| 
Nis 2 JP UR 0S sts ee er FILE. _OF___ type__ 
\____/ = \_CONST_/ Nes sf \ 
\VVAR_/ | 


; | 
where type is the record type of the file being 
pointed to 


This syntax has ae precedent in SPRITE'S current 
parametric pointerss where one can define a pointer to a 
types yet one can not define a variable of that type. 


File pointers may be passed as parameters to procedures. 
Two file pointers are equivalent to each other if they 
have equivalent file -.record types. Equivalent file 
pointers may be compared for equality with = and -=. 
Just Like regular pointers, file pointers are built by 


using the "“ptr™ standard functions. No operations (+s ~» 
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>, <, etc.) other than “:=" are allowed. 


Example: 


TYPE 
FILE_PTR = PTR TO FILE OF RECORD=- 


VAR 
file_otr FILE_LPTRs 


file_otr := ptr (shared_file); 
file_ptr2.MYUSE <:= IN, 


jo.-open_lock Cfile_ptrads 


be Return of the RETURN statement in MACRO 
Once againg RETURN statement in MACRO is back. The 
RETURN statement causes an exit from a MACRO and the 
control passes to the instruction following the end of 
the body of the MACRO call. 


ra New standard function -~ search string 


The new standard function, search strings is a more 


generalized search routine than the current index 
functions (Cindex, index _any and Jndex_inc). - The 
following js the description of this new standard 


function. 


“PARAMETERS: # Type Access Description 
4 String_1 CONST Keys can be variable 
. Length or parametric 

2 0..2 CONST key_datatype 
O : un 
1 3 = sn 
2 2 ua 

3 String_2 CONST String to be searcheds 
Can be variable length 
or parametric 

4 1.-.-100 CONST Increment between 


comparison 


5 Ou6.2 CONST search kind 
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RETU 


FUNC 


Examples: 
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O =: search for equal 
1 +t search for Low 
2 2 search for lowest 
RN TYPE : Oselength (string_2) 
TION > Returns the index of the first occurrence 
of string_1 in string_2 where 


occurrence 
numeric parameter (C14 ntti» 2nti-v etc.) 
the search kind is O CEQUAL)D. 


Returns the index of the first 
of string.1 in string_2 which 
than string_1 


is 


C1, ntl. 2@ntt, etc.) if the search kind 


1 (LOW). 


Returns the 


occurrences of string_1 


4th numeric 
if the search kind if 2 (LOWEST). 


Returns 0 if the search condition fails 


indx := search_string (key (€12:31]- keytype- 
str Cissposlde 3+ 0); 

indx = search_string (key_ptra C2:sinerde, 2, 
ste Ci2sposl, incre 
search_kind)-s 

indx := search string Ckeys keytype, str_iptraa, 
incre search kind)? 

eo SINDEX 
The mew SINDEX CCI allows the user to create an 


alphabetized 


td 


— 


identifiers and 


index of where all of a module’s procedures 
types are defined. 


begins on a multiple of the 4th 


occurrence 
Less 
where the ocurrence begins 
on a multiple of the 4th numeric parameter 


index of the lowest of alt the 
in string_2 where 
the occurrences begin on a multiple of the 
parameter (14 nt1- 2nt+4, etc) 
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The syntax of the INOEX CCI is: 


\ PROCEDURES / 


\ | 
| | 
| | 
J \LL_LIDENTIFIERS___/ | 
| | 
| 1 
| | 


The ALL option of the INDEX CCI will create an index for 
each of the other INDEX option. If the MODULES option is 
set in a #moduler it has no effect Cin a MID it indexes 
the module descriptions). If the PROCEDURES option is 
set in the MIDs itt creates an index of where the 
procedure descriptions occur. If the PRODEDURES option 
js set in a module, then it will create an index 
containing both procedures and MACROS. 


The INDEX IDENTIFIERS option will produce an index of 
where alt of the constants data blocks» data block 
variables, file blocks» file names» and tocal varaibles 
are defined. 


The INDEX CCI options can be set anywhere in a moudle (Cor 
MID) and will index the specified item(s) over the entire 
module Cor MID) and not from the point it was set to the 
end of the module Cor MID). All of the INDEX options 
default to being not set and there is no way to reset an 
INDEX option once tt has been set. 
Examoles: 

$3 SET INDEX PROCEDURES», INDEX IDENTIFIERS 

$3 INDEX ALL 

$3E INDEX MIJUDLES-, INDEX TYPES 


SS SET INDEX PROCEDURES 
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Default MID 


Currently, the SPRITE user atways has to write a MID and 
provide his own bind deck to get the excutable code file 
even if the user has only one module in the »yprogram. 
With the new SPRITE- the user can avoid going through the 
hassle of creating the MID and bind deck by using “8D" or 
"On" in the first slash parameter. To use this 
convenient features the following procedures must be 
followed. 


(1) To invoke the default MID- you must use “DFTMID™ 
as your system file name. 


(2) To invoke the default bind decks you must use “"8D™ 
or “BN™ as the first parameter to your program 
for the debug and non-debug versions respectively. 


(3) The control card “FILE ICM =" must be included in 
the compile deck. 


(4) The name of the module and program entry point 
procedure must be “main” and “driver",» respectively. 


(5) Defautt name for the created codefile is "CODFIL™. 
The user may use “SCODEFILE” to specify the name 
of the result codefile. 


Examples 


4%? COMPILE ONEMOD WITH SPRITE/BD .. debug version 


14 


%4? FILE SYSTEM = CDFTMID) ee default SYSTEM 
4? FILE ICM = (MODICM) ee ICM card must 
4? DATA CATD 
$$ CODEFILE “TESTxx”™ % codefile name wilt 
% be TEST under xx 
main % name of the module 
MOD 
driver % name of the program entry point 
DOM, 


NOTE: SPRITE wilt fire off a bind job for you if there 
are no errors on the compilation. The name of the bind 
job should be “XXXXXX/3INDER™, where XXXXXX is the name 
of the codefile. 
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10. SXREF enhancement 


The crossreference Listing from SXREF will now indicate 
where an indentifier is modified. 


Ca 
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For your own copys please do “SYS COMP 89872APDL ON ALS”. 


APPENDIX D - INTRINSICS BUGS FIXED Page 13 of 


ween owe on eee woe eo Dee eo 


Lines Left on vage when calling print.line 
to print before or after advancing 


When print.line is called specifying “print before” or 
“print after"s the Lines left on page is no longer 
calculated wrong. 
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Faster debug 


The new version of debug will run considerably faster 
than the old version. Howevers you do tose something. 
The cumulative counts for each procedure all no longer 
kept. If you count thems you have to use a new option 


mes. 


If you use the "stash option” C or “COUNTS” in a extended 
deck then you will get what you used to get. Note that 
even without the “C” option any procedures you mention 


“with give you cumulative counts. 


Note that unless you want the counts you can use a 
samlLtler version because much less information has to be 
kept. Also the old version of debug killed the program 
if it ran out of space in its tables. This version witt 
just switch off the “C™ option and continue. 


vidbwrite 


The new intrinsic,y vidbwrites, has the function identical 
to that of the f_dbwrite. The first parameter of 
Vidbwrite is VALUE parameter. This means that when 
calling v_dbwrite procedures SPRITE wilt not put the 
constant labels into the CONST pools. . 


If you are a heavy user of vidbwrite.string you may want 
to consider that the second parameter has not been 
changed to a VALUE parameter and can still be un to 99999 
characters tong and wilt go into the CONST poot. 


The new intrinsic INCLUDE Library (CSINLIS) contains the 
moudle description for this new intrinsic. To inctude 
it, do 


$$ INCLUDE “SINLIP" dbwrite_types 
$$ INLCUDE “SINLIE” vidbwrite 
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L SPRITE FOR OMEGA 


Introduction 


Existing programs and code files will continue to 
compile and run on P-series machines without change. 
The 7.0 release of SPRITE supports writing part of the 
operating system (MCPX) in SPRITE producing OMEGA code 
fites. The 7.1 release will allow others to build 
OMEGA code files. 


When writing a smattl OMEGA program (defined below), 
there are several differences from non-OMEGA programs. 
(With OMEGA, a “small” program can have up to half a 
miltion bytes of data. Thus practically alt existing 
programs are considered small. Most users need only 
read this list,» and will not be affected by the rest of 
this appendix.) 


a. A "$$ PAGING" card must be added to the MID. 
This tells SPRITE to build an OMEGA ICM for the 
MID, and att modules compiled with that MID. 


b. A pointer variable cannot point to a constant. 
If this is needed, just declare Cand point to) a 
dummy data block variable which is initialized to 
that constant. (See 1.4.5 for the reason this 
restriction is necessary.) 


c. The internal mappina of pointers is different. 
This onty affects those who build or manipulates 
pointers by hand (see L.4.1). 


d. Files and intrinsics are not imolemented yet. 
The MOWE intrinsic is now generated in-line § for 
OMEGA. The standard procedure mcp.move_repeat 
should help take the place of the FILL intrinsic 
(see L.7.3). 


e. Any BPL modules must be rewritten in SPRITE. 
There is no BPL for OMEGA. 


f. OMEGA ICMs are bound with LINKER, not BINDER. 
BINDER does not support OMEGA ICMs. Alsosr LINKER 
is much faster. 


These differences also apply to tarqe OMEGA proarams 
(defined below).  Howevers a pointer can noint to a 
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constant if it has the appropriate SEG clause (see 
L.4). Alsos several new features were added to altow 
the user to take advantage of the flexibility of 
P-series machines. For details» read on. 


Backqround 


These terms are defined within the context of SPRITE. 
For a more comolete descriptions see the OMEGA 
documentation. 


With OMEGA, a orogram ts divided into two or more 
seaments of un to half a million bytes each which can 
be scattered throughout memory. (Note: the OMEGA 
documentation uses the word “area™ rather than 
“saqment".) Up to eiqht menory seaments are accessible 
at any one time. They comorise the current addressing 
environments and are specified by the active memory 
area table. The entries in this table Cand thus the 
corresponding segments) are numbered zero through 
seven. Seaqment zero contains the stack and index 
reqisters Camong other things). Seament one contains 
the currently executina code (and its constantss with 
SPRITE programs). The rest Cif they exist) hold 
miscellaneous data. 


With an OMEGA programs LINKER outs the code and 
constants in as many code segments as necessary. In a 
small programe the remaining data fits into a singles 
seqment (zero). Thus even when there are several code 
seaments and thus severat environments), they all 
share the same non-constant datas and they always find 


it ain segment 7ero. A targe oprogram.can have any 
number of data segmentSr with~ up to seven in each 
environment. “A aqiven data seqment might apoear as 


segment two in some environments, as segment three in 
others, and not at atl in the rest. 


OMEGA Pointers 


With OMEGA, the high-order two diaits in a vointer 
include the dimension override of zero to seven. This 
is the index into the active memory area table for the 
segment containing the object pointed to. The ovoointer 
may not be valid outside the environment in which it 
was buitt, however, since the dimension override may no 


Longer refer to the same physical segment, This 
includes passing narameteors by referencer since that is 
implemented hy passing a pointer to the actual - 


a 


L.1.3 


oarameter. 


For Large proarams»y we therefore provide the following 
constructs: declaring seqments- declaring 
environments, and pointer SEG clauses. Togethers they 
allow the user to declare many different environments, 
and still share pointers between them safely. We also 
include several other features to allow the user Cbut 
mainty the MCP writer) to exploit the flexibility of 
P-serjes machines. 


Samele MID and Module 


These examples should help clarify the following 
exolanations. Refer back to them as you read the text. 


$$ PAGING 

prog 

PROG ACCESSES (Cseg_zero ORIGINAL): % use “prog” as 
% SEG_TABLE name 


seq _zera 
SEG 
orm_seq_zero % proqram reserved memory 
DATA 
fitter STRING €40) OF HEX». 
tonstack 0..999999; % 6 UN 
alobal_data 
DATA 
info _list LINK TO SEG senq_zero INFO? 
GES? 
"SEG_TABLE 7 
lex_parse_table (seq_zeroe ~» lex _parse_seqg ORIGINAL), 
sem_table (seq_zeror +» sem_seq ORIGINAL), 


code_gqen_table (Cseg_zeroe » code_qen_seg ORIGINAL)? 


Lex 
MOD ACCESSES lex _narse_table; 
get _token PROC RETURNS TOKEN? % uses Lex_parse_table 


DOM, 


utility 

MOD % uses program's SEG_TABLE (€ prog ) 
ListLinfo PROC (i INFO); % uses prog 

DOM; 

GORP? 


! 
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Lex 
MOD ACCESSES (Cseg_zero,s 
rd 
lex_parse_seq, 
lex_segq ORIGINAL) 


MN RW 
WM — 


Lex_seq 
SEG 
STATIC; % forces atl STATIC variables in lLex_seg 


lex_seq_data 


DATA 
lex _seg_info INFO; 
GES; 
lex % module name forces this tnto code segment 
SEG 
code_seg_data 
DATA 
code_seq_info INFO; 
GES; 
more_zero_data % no SEG/GESs so goes in seg_zero 
DATA 
otr_to_code_seq PTR TO SEG tex INFOs 
otr ono _seg_clause PTR TO INFOS 


aget_token 
PROC RETURNS TOKEN? 


SHARES Lex_seaq_datasr code_seg_data, more_zero_datas, 


VAR token_start» 


token_end 0.680 STATIC z= 07 % qo in Lex_sea 
ptr_ito_code_seg t= ptr (code_seq_info)s % okay 
% otrino_seq_clause := ptr (code _seq_info)? 4 ittleaatl 
% utility. list_info (Ccode_sea_info)? % illegal 
% utility, List_info (lex_seq_info); % jlttleqaat 


% should change formal param to oass by VALUF 


Declaring Seqments 


In a small program, data is declared as hefore, SPRITE 
puts constants in seqment onesy and the rest in segment 


Page 


Zero. 


In ‘a Large proqramy MID data must he explicitly 
declared within a specific segment. If module data is 
declared as befores SPRITE handles it the same way as 
in small programs. If destred- the user can force 
SPRITE to put module data in a specific seqment. 


Seaqment Declaration in MID 


mid seament declaration 


| 
| 


\_knows 
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seqment: / proaram \ 
ident___SEG__\__knows component__/ GES__ 


For a large proaramr a seament anoears in the MID as 2 
collection of data and file blocks Cincludina port and 
nso files)» each of which can have its own knows List 
(as tona as it is a subset of the segment's knows 
List). (As a conveniencey a seament declaration may 
actually include any program component except a senment 
or module declaration.) If two seqment declarations use 
the same name, their data is simply combined into the 
same seament. This allows decomoosition of a segment 
into logically distinct parts. 


For Large programse every data block must be declared 
within some segments free-standing blocks are not 
allowed. If declarations within a segment have their 
own knows lists, the Lists must be a subset of the 
seqment'’s knows list. Also, REMAPS declarations can 
only remap data blocks in the same seament (see L.5.5). 
File ‘declarations can only apnear in seament zero (sea 
bad )% Exolicitly declared intrinsic data must go in 
segment zero, Finally, when declaring seqment zero, 
the stack must not be mentioned it is supplied 
implicitly by LINKER. 


Files and intrinsics are not implemented for OMEGA in 
the 7.0 release. 


ms, 


He: 
\ 


-——— = -— -——— —— ee 
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Segment Dectaration in Module 


seqment : module \ 
ident SEG STATIC \__ _component___/____GES__ 
/ Ni oes eet ores / \ 
| 


If module data is declared as beforer constants ago in 
segment one and the rest ao in seqment zero. Inia 
large proarams, a ouser can override SPRITE’sS default 


allocation with a seament declaration. The declaration 


may appear in the same place as a normal modute data 
block declaration. It may either add data to an 
existing segment (by using a segment name which has 
already heen defined)» or define a new module tocat 
seament. 


Declaring a module data or file block in a segment 
declaration forces SPRITE to allocate that block within 
that seqment. If the segment name is the same as the 
module name, the data is put into the current code 
seqment Chut see L.4.5). The keyword “STATIC”, if 
used, forces all following STATIC variable blocks into 
the seament being declared. This remains in effect 
until overridden by another seaqment declaration with 
"STATIC. ‘ 


As a conveniencer a module seament declaration may 
contain any module component except a segments, procs or 
macro declaration. Anaines files can.only be declared 
in seqment zero. (Remember, files are not jmolemented 
in 7.0.) 


Declaring Addressing Environments 


In a small programs. seqment zero is always the sames it 
contains alt the non-constant data. At any point in 
timer seqment one contains the currently executina 
procedure and its constants. Thus each procedure's 
environment is very simple and obviouss no i exnlicit 
declaration is needed. ; 


In a large orogramr a procedure can access at most 
seven of the declared data seqments Cin addition to the 
code seament). This aroup of data seqments is called a 
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SEG_TABLE. An ACCESSES clause specifies which 
SEG_TABLE a qiven procedure uses. These constructs are 
only allowed in targe programs. 


A SEG_TABLE that never appears in an ACCESSES clause 
represents a dummy memory area table (see the OMEGA 
documentation). A SEG_TABLE that anoears in. an 
ACCESSES clause directly represents a orocedure's 
active memory area table when the procedure starts 
executing. (The MCP writer can change the table within 
the procedure; see 1.3.4.) The SEG_TASLE does not 
include the code segments which SPRITE supplies 
implicitly. 


seg table definition 

eS Bo 

} seq table: / \ 

\ UL. SEG_TABLE _____L ident _____ \ -i_seg table___/_ 
\ 
{ 

seq table 

] ee | ae eee 799\_ 

! inch aah: oF seg: \ 

Nee. eee SYSTEM GS. Co Na Tents 4 ORT GINS os Yak 

Nee / Niet wh ek Ms Gx Shea, / \ 
accesses 

] 

\____ACCESSES_____ seq table: ident___._.___ et 
\ 
| 

accesses with dect 

i. 

\_-__ACCESSES_ Sieg: tables noe els ee 
\ 


A block of SEG_TASLE declarations can appear jin a Larae 
program wherever a data block declaration can appear. 
The ontionat SYSTEM clause specifies an overating 
system table, rather than the default user table. 
(This clause should only be used in the operating 
system, of course.) The optional ORIGINAL clause 
specifies the original table entry, rather than a copy 
of the original elsewhere. Fach seqment must aonear as 
an ORIGINAL entry exactly oncer in the MID or module in 
which it is declared. A seqment cannot appear twice in 
the same S£G_TARLE. 


SEG_TASLEs that never appear in an ACCESSES clause are 
dummy tables» which may have uo to 100 entries. An 
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entry is either a seqment identifiers or a spot left 
emoty by using consecutive commas. Any SEG_TASLE that 
appears in an ACCESSES clause is a real table 
Cootentially active), which can have at most eight 
entries. The entries are numbered zero to seven. 
Further, the SEG_TABLE cannot skip seqment zeros and it 
must skip seament one (Cleave it empty). SPRITE 
supplies the code seqment implicitly. 


Forward-defined seaments are allowed, but not 
forward-defined S&G_TASBLEs.j At the top of a MID or 
module, the “accesses with dect™ form must be used (Cif 
any). It allows the programmer to declare and use a 
table at the same time. If there is no such clause 
after the word PROG jn a MID, it is a small program. 
If there is no such clause after the word MOD in a 
modules SPRITE uses the clause for that module from the 
MIO. This clause at the too of a module is for addina 
module-tocal segments to the MID table. 


L.3.1 ACCESSES Clause in MID 


In a larqe proqram, an ACCESSES clause declaring a 
SESG_TABLE must appear at the bheginning of the MIf4 
immediately after the keyword "PROG". This specifies 
the default addressina environment. It is not allowed 
in a small proaram, 


nterface descrinotion 


7 
| 
{ proaram: 
\___ident PROG 


Je Bote __e_progqram tail_____ 


accesses with decl 


A Ge Aes ROG eit] eer eR OY tre / 
program tail 
fe aay ree Re se eT 
J / \ 
Nien Bm he ik ae ok \_u knows. _component_i/ 2 _GORP__ 3 Lo 
Nee ee Oh a So ee / sree 4 
\_____ comment __ / 
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module descrintion 
Bee Se ge bebo OSes tee: 
{ module: env / orocedure \ 
\iiident__MOD__accesses____depo__\_knows__description_/__d0OM™M_ 
| bau ese New ae | eae ee eat ae ane ae eerie / 
| accesses | \L.uLLcomment____ | / 
\_with dect_/ 
Aut ee a / 
orocedure descriotion - 
{ 
{ proc: return 
VN _ident______ PROC____parameters____value_____ accesses____ 
\ Nesentt et ts Soh. / Sac, eee ees ae Cem rer es 
NG PEN TORY sett he rk eee ee / 
proc ocoitnter type 
| 
| return 
\L_PTR___TO___PROC____parameters____value_____ accesses__ 
Nets Net NeScke Pg No poet tet 
Each module uses the program's ACCESSES clauser unless 


Each procedure uses its 
it has its own 35 


it has its own as shown above. 
module’s ACCESSES clauser unless 
shown ahove. 


on individual procedure declarations 
imolemented in the 7.0 release, 


ACCESSES clauses 
and definitions are not 


clause is required in proc pvointer types in 
Large orogramss and is not atlowed in small programs. 
The proc pointer ACCESSES clause tetls SPRITE the 
environment of the procedure being called when the proc 
needs this to verify 


An ACCESSES 


pointer is dereferenced. SPRITE 

that the calling and called procedures share the same 
segment zero (see 1.3.3). SPRITE also needs it to 
process the parameters, as in a normal procedure call 


(see L.4.4). 


1.3.2 ACCESSES flause in Module 
In large proaqramsr an ACCESSES clause declaring a 
SEG_TASLE may appear in the actual module definition 
immediately after the keyword “MOD". The table 
specified for the module jin the MID must be an exact 
subset of the table in the module. That iss the module 
table must be the same as the MID table, excent that 
new seqments may be added in entries which were empty 
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in the MIp table. (The entry for seqment one must 
remain empty.) This allows for module tLocat seqments. 
If there is no ACCESSES clause at the top of the 
module, SPRITE just uses the one specified for that 
module in the MID. 


module 
Bote, ee ee, eee eee 
| modules: accesses act modute \ 
\U_ident__MOD___with dect___\__component__/__DOM___ 7 __ 
PN ENG ete ee et / ia Aone cae / \___/ A 
! 
procedure header 
| 
Vu PROC... parameters. retdrn Velie. Accesses oe 
Nioeroe ok S | a PE et ee ee | a VAP eee / \ 
| 
macro header 
\- __MACRO____parameters______accesses____.__ 
\ / \ 
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Each procedure and macro uses the module's ACCESSES 
clauses unless it has its own as shown above. Thea 
SEG_TARLE specified in the procedure's clause 
represents its active memory area table at the start of 
the orocedure. The proredure header jis part of both 
the forward and actual oprocedure definitions in the 
module. If an ACCESSES clause anopears in either olace, 
the exact same clause must also apoear itn the other 
olace. If the vorocedure is a module entry pointy, its 
corresoonding SEG_TABLE in the MID must be an exact 
subset of the SEG_TABLE in the moduler as defined 
above. Proc pointer ACCESSES clauses are treated the 
same way as tn the MID. 


ACCESSES clauses on individual procedures and macros 
are not imolemented in the 7.0 release. (For 
additional restrictions needed to imolement this see 
L.4.2.17 and 1.4.4.2.) 


A orocedure or macro uses the SEG_TABLE specified by 
jts ACCESSES clause. It can access only the data in 
the seaments in its SEG_TABLE (Cand seqment one), 
regardless of KNOWS Lists. COf course, it must stitt 
know the data to access it.) A macro can only be 
“called” by a procedure that uses the same SEG_TASLE. 
Alsov a procedure can only call another user-defined 
procedure when they both use the same seaqment zero Cand 
thus the same stack), Otherwises an interrunt or 
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hyoercall is required (which are not imolemented). 


Finally, procedures with matchina SEG_TABLEsS can go in 
the same addressing environment. That ise’ LINKER can 
put their code in the same seqment ones if it fits. If 
noty LINKE® can use 38S many segment oness and thus 
environmentss as necessary. CIf procedures in the same 
module are split between different code segments,» 
howeverer the module's CONST and ACON oools must be 


duplicated in each seament.) Note that the only 
difference between these environments will be seaqment 
one. Thus with special norovisions for data in seament 


one (see L.4.5)% these environments can be? considered 
the same for everythina except the need for a non-local 
VEN and VEX hetween them Cwhich LINKER handles 


automatically). 


Multiole Seqment Zeroes 


There can be. more than one segment zero. Procedures 
With different seqment zeroes cannot call each other, 
however, because they do not share the same stack. 
Transfering control between such procedures requires an 


‘interrupt or hyoercatt, which are not yet implemented 


in SPRITE. 


Multiole Environments Within a Procedure 


There are two standard procedures to implement the APE 
opcode: mco.w~make_page_table_entry_unused, and 
men.cooy_page_table_entry. They allow the MC° writer 
to change environments by directly altering memory area 
table entries. 


WARNING? These procedures must be used with extreme 
caution. SPRITE will always make its checks and 
generate code based on the declared ACCESSES clauses. 
SPRITE cannot keep track of changes made to the 
environment by calling these standard procedures. 


Pointer SEG Clauses and LINK 

SPRITE tries to make sure that pointers remain valid 
when shared between environments. For small proaramss 
this means takina two orecautions with constants (see 
L.4.5). Larqe programs are handled as described below. 
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Declaring each module's addressing environment as above 
is sufficient to allow passing voarameters by reference 


(see L.~4.4.1). To allow sharing pointer variables 
between addressing environments, pointer type 
definitions have an optional SEG clause. 


Alternatively, a special LINK pointer is sometimes 
usefuls such as with the FINO statement (see L.5.1). 


“LINKs are also allowed in small programs» but then 


their only advantage is they are two digits smaller.) 


pointer type 


2 


seaqment: 
PTR TO SEG_ ident CONST_ EXTERNAL___type__ 


VLLINK_/ VL_/ \ J NLVARLZ NLLOCAL__/ 


\ / \ / 


—-_——~ ee ew 


A pointer without a SEG clause can point into any 
seqnant in the current addressing environments excent 
segment. one (see 1.4.5). However, it cannot. be 
accessed outside that environment (but see L.4.2.1 and 
L24.4.2)., A pointer with a SEG clause can only point 
to objects in the specified seqment. However, it can 
be shared freely between environments. 


A LINK with a SEG clause is treated just like a nointer 
with a S&G clause. A LINK without a SEG clause can 


“only point to the same seament it as In. Thus no 


04100970 


dimension override (see t.1.2) need be stored in the 
pointer itself. It can be shared between environments, 
as long as it is not moved to a different segment in 
the process (see L.4.3 and L.4.4.3). 


To dereference a nointer or LINKs SPRITE moves jit into 
an index reqister or mobile reqisterse along with the 
necessary dimension override. (P-series machines have 
four mobile registers» which can be used like index 
registers one andtwo. See the OMEGA documentation.) 
For a pointer without a SEG clauses SPRITE just moves 
the entire pointer (since it atready contains the 
proper dimension override). for a pointer or LINK with 
a SEG clause, SPRITE uses the dimension override § for 
that seqment in the current environment. For a LINK 
without a SEG clauses SPRITE uses the dimension 
override needed to access the LINK. Of course, tha 
pointer or LINK cannot be dereferenced unless the 
seqment it points to is in the current environment. 


In a moduler, the SEG clause identifier can be the 
module name. This specifies that the pointer or LINK 
points to the active code segment. See L.4.5 for 
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cautions regarding the use of this feature. 


Data Mapping 


Pointers still occupy eiaht digits, or fourteen if the 
base type is parametric (six for the length). The 
lower six digits contain the offset from the beginning 
of the segment Cor “EEEEFE" when nil). The upper two 
diaits of the pointer contain the HEX value “C", 
followed by the dimension override of the segment for 
the environment in which the pointer was built (Cor if 
the pointer 18 nile possibly “CE”%). “LINKS occuoy anly 
six digits, containing just the offset (Cor “EEEEE” 
when nil). 


Note that two equivalent pointers with a SEG clause may 
point to the same olaces and yet not compare as eaual 
in a boolean expression. This would happen if they 
were built in different environments which used a 


' different dimension override for the seament in the SEG 


clause. Also, if both pointers are set to nits one 
might have the uoper two diqits set to “CE” while the 
other contains the dimension override. When comparina 
a oointer with the constant "nil", SPRITE only compares 
the tow six digits. SPRITE could make similar special 
arrangements when comparing some oointer variables» but 
this would be impractical when comparina structures ofr 
arrays with imbedded pointers (see t.4.2). 


When Optional or Required 


SEG clauses are not atlowed in small proarams. In 
tarae orogqramss they are ontional in a modules as well 
as when defining indicants and LINK variable types in 
the MID. They are required in the types of ID files 
and MID data block variables, when these types contain 
(non-LINK) pointers. (CIf this restriction is tifted- 
checks very similar to those described in L.4.2.1 will 
also apply to accessing MID data blocks and files.) 
That includes imbedded pointers, such as a structure 
with a pointer field. (That does not include the 
parameters to procedure oointers.) They are also 
required in the FIND and GENERATE statements (seo L.5.1 
and L.~5.2). For the 7.0 releases they are required in 
pointer types of module entry point parameters. (for 
additional narameter checks needed when we Lift this 
restrictions see L.4.4.2.) 


Lo4.221 
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These restrictions help to aquarantee that vnointers 
without a SEG clause cannot be shared between different 
environments (but see L.4.2.1 and 1.4.4.2). UNTV 
parameters and omitted taagqfields can bypass thiss 
pointer kludgers beware! 


ACCESSES Clauses on Individual Procedures 


When we altow a procedure or macro to have a different 
ACCESSES clause than its module, (non-LINK) pointers 
without a SEG clause will require further restrictions 
for safe use. (For additional checks when varameters 
contain such pointers, see 1.4.4.2.) 


A pointer without a SEG clause in a module file or data 
block can onty ovooint to segments in the module's 
SEG_TABLE. To enforce this restriction, a orocedure 
with a different SEG_TABLE than the module cannot have 
VAR access to file or data blocks containing a pointer 
without a SEG clause. It can have CONST access to such 
blocks only if the module's SEG_TABLE is an exact 
subset of the oprocedure's SEG_TABLE (see L.~3.2). In 
effect» the two-way communication of VAR access forces 
each SEG_TABLE to be a subset of the other. That ise 
VAR access is only allowed when both SEG_TASLES are the 
Same. 


Coercions 


Equivalent pointers have the same SEG clauses access 
CCONST or VAR)» and tevel (not implemented), as welt as 
equivalent hase types. CHaving the same SEG clause 
here includes neither pointer having one.) Equivalent 
LINKs have the same requirements. Alsor if the LINKs 
do not have a SEG clauses they must be in the’ same 
seqment to be equivalent. 


Comoatible pointers also must have equivalent base 
types. Coercinag from VAR to CONST and/or EXTERNAL to 
LOCAL is alloweds but not the other way around. § If 
bath pointers have a SEG clauser they must have the 


same clause. tf one pointer has a SEG clause and the 
other does nots the coercion is tlegat in either 
direction. Note that even for two types to be 


compatible, any imbedded pointers and LINKs must be 
equivalents and thus have the same SEG clause. The 
above alsa anplies to LINKs, iincludina compatibility 
between a LINK and a pointer. 


L.4.4.1 
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When coercing to a pointer without a SEG clause, SPRITE 
supplies the oroner dimension override in the current 
environment for the segment the source points to. OF 
courses this segment must be in the current 
environment. It cannot be the code segment, however 
(see L.4.5). 


When coercing to a pointer Cor LINK) with a SEG clause, 
SPRITE verifies that’ the source ooints to the seament 
specified by the destination's SEG clause. 


When coercing to a LINK without a SEG clauser SPRITE 
verifies that the source points to the seqament the 
destination is in. Note that if the source is also a4 
LINK without a SEG clauses they are only comnatible if 
they are in the same seqment. This does not apply ta 
imbedded LINKs without a SEG clause. (This is very 
much like passing imbedded LINKs by VALUE; see 
L.4.4.3.) 


Several of the checks for LINK coercions are not yet 
fully imolemented. Neither is the check when coercina 
from a pointer without a SEG clause to a pointer with a 
SEG clause, Users should take care. Most of the 
compile-time checks are imolemented. 


Parameters 


There are three special concerns when passing 
parameters for OMEGA. Firsts the parameter must be in 
a seaqment accessible by the called procedure. Seconds 
if the parameter contains any pointers, they must be 
meaningful to the called procedure. Thirds if the 
parameter contains a LINK without a SEG clauser moving 
it to a different seqment invalidates the LINK. 


tf the calling and called orocedures have the same 
ACCESSES clauses and seaqment one is not involved (see 
L.4.3), the first two special concerns are satisfied. 
The case of a call between different environments is 
detailed below. So is the third concern. 


Checking Seament the Parameter is In 


VALUE parameters are moved to the stack itn seqment 
zeror, so they are not a problem Cunless they contain a 
oointer or a LINK; see below). That leaves 
pass~-~by-reference oarameters. 
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If SPRITE cannot tell at comoile time which segment the 
actual oarameter is ins and the calling orocedure's 
SEG_TASLE is not an exact subset of the calted 
procedure’s SEG_TABLE (see L.3.2), SPRITE puts out a 
warning. (The code will only work if the seament turns 
out to be in the called procedure’s SEG_TABLE.) This 
includes a parameter which involves dereferencing a 
pointer without a SEG clauses such as one of the 
orocedure's own oass-by-reference formal parameters. 
An actual parameter in seaqment one cannot be passed by 
reference (see t.4.5). It is an error if SPRITE knows 
at comoile time that the parameter's seqment is not in 
the called oprocedure'’s SEG_TASLE. Otherwiser SPRITE 
builds and passes a pointer (to the actual parameter) 
with the prover override for the called environment, 


It does not matter which seament the destination of a 
function result is ins however, unless the RETURN tyoe 
is a LINK without a SEG clause (see L.4.4.3). If 
necessarys SPRITE builds a stack temporary for the 
RETURN parameter, passes a pointer to it with override 
zerore and moves the result to the real destination 
after the VEN. This is only necessary if the 
destination's seament is seament onevy or it is not in 


“the calted procedure’s SEG_TASLE, or it is not ‘known at 


compite time and the catling procedure's SEG_TABLE is 
not an exact subset of | the called procedure's 
SEG_TARBLE. 


Checking Pointer(s) in the Parameter's Type 


The above coercion rules and restrictions on formal 
parameters are sufficient even when the called 
orocedure ts in a different module with a different 
ACCESSES clause. Any pointer Cincluding an imbedded 
pointer) in an entry point's formal parameter tyoe must 
have a SEG clause. If the catled procedure 
dereferences the pointer but does not have access to 
the seament in its SEG clause, SPRITE will report the 
error when it is dereferenced. If the pointer in the 
actual parameter does not point to that seqments SPRITE 
will report the error during the coercion from the 
actual parameter to the formal. 


Agains coercina from a pointer without a SEG clause to 
a pointer with a SEG clause requires a run-time check. 
This check is not made in the 7.0 releases so users 
should be careful. 


e 


~ 


L.4.4.3 
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When we make pointer SEG clauses optional on module 
entry point parameters, or when we allow ACCESSES 
clauses on individual procedures, further parameter 


checks will be needed. When an actual parameter 
contains a pointer without a SEG clause, it may point 
anywhere in the calling procedure*s SEG_TABLE. For 


this pointer to be meaningful to the called procedure, 
the calted procedure must have access to every data 
seament in the calling procedure's SEG_TABLE Cif not 
more). If the called procedure can change the ovointer 
and pass it backs the reverse is also true (that is, 
the SEG_TABLEs must be the same.) Even if only the 
RETURN parameter contains a pointer without a SEG 
clause (passed just one way)s the SEG_TABLES must still 
be the same. This lets SPRITE make the subset check 
when the seqment the destination is in is not known at 
compile-time (see 1.4.4.1). 


Therefore, if a procedure has a CONST or VALUE 
parameter type containing a pointer without a SEG 
clause, it can only be catted by a procedure whose 


“SEG_TASLE ds an exact subset of the called procedure’s 


SEG_TABLE. Further, if a procedure has such a VAR or 
RETURN parameters itt can only be called by another 
nrocedure with the same SEG_TABLE. - So SPRITE can 
enforce this if an entry ovoint has such a VAR or 
RETURN parameters its SEGLTABLE in the MID must be the 
same as the one in the modules a subset is no Longer 
sufficient (see L.3.2). 


Checking LINK(s) in the Parameter's Type 


A LINK with a SEG clause is handled just like a vointer 


with a SEG clause (see 1.4.4.2). The problems 
involving a LINK without a SEG clause revolve around 
the seqment the parameter jis in. Many of these are 


covered in sections L.4.3 and L.4.4.1. In addition- 
moving such a LINK between segments invalidates the 
LINK. The consequences of this are detailed below. 


Firsts in a large program, a formal WALUE parameter 
type cannot be a LINK without a SEG clause. A formal 
VALUE parameter is on the stack in seqment zero, but 
the actual parameter is typically in a different 
seqment. Rather than wait until processing the call to 
report the errors we simoly outlaw it even when the 
actual parameter is in segment zero. of. course, if 
passing a LINK in segment zero by VALUE is desired, the 
user can simoly nut a SEG clause on the formal 
parameter, snecifying segment zero. : 
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Seconds if the RETURN type is a LINK without ai SEG6 
clauses the seament containing the actual destination 


“must be in the called procedure's SEG_TABLE. That ise 


SPRITE cannot build a stack temporary as it can for 
other RETURN types (see L.4.4.1). 


Thirds VALUE and RETURN parameters can contain imbedded 
LINKs without a SEG clauses and still be moved between 
seaments. SPRITE assumes the user is really trying to 
pass the non-LINK fields, and will rebuild the LINK 
fields by hand. SPRITE may eventually aenerate 
optional code to fill such LINK fields with “AAASAA” 
(for access error) when the parameter must be moved 
between different seaqments. This wilt catch the error 
if the user dereferences them without rebuilding them. 


Fourth, if the formal CONST or RETURN parameter is a 
LINK without a SEG clause, the actual parameter must 
point to the same seqment that the actual parameter is 
ine SPRITE does not allow the actual parameter to be 3 
oointer Cor LINK) with a SEG clause to aie different 
seqment. If it did» to match the formal parameter 
tyner SPRITE would have to buitd a temporary LINK 
without a S&G clause in the segment specified by the 
actual narameter'’s SE&G clause. This is impractical. 
Ry insistina the actual parameter point to the same 
seament that it is ine SPRITE can match the formal 
parameter type by passing along the address of the 
offset part of the actual parameter. If processing the. 
RETURN parameter and the actual destination is a 
pointers SPRITE will set the dimension override 
aporoorjately as part of coercing from a LINK to a 
pointer. 


Some of the checks for LINK parameters ar? not yet 


fully imolemented. Users should take care. Most of 
the compile-time checks are implemented. 


Data in the Code Segqment 


A code seqment contains several procedures and their 


constants. It may contain several moduless which may 
even use different SEG_TABLEs. Converselysr orocedures 
using the same SEG_TARLE may be in different code 
seamentsr and thus have environments which differ only 
in seqment one. This is obviously necessary when alt 
the procedures using a particular SEG_TARLE cannot fit 
in a single code seqment. 


L.4.5.1 


L.24.5.2 


1.4.5.3 
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SPRITE is thus designed to verify (Cas far as possiole) 
that each procedure has access to the data it needs, 
while teavina the LINKER free to assign orocedures to 
code seqments in any way it likes (subject to the bind 
deck specifications). This requires special care with 
data in the code seqment. That includes constant pools 
as welt as Cin a tlaraqe program) data explicitly 
declared in the code seqment. (See L.1.3 for some 
examotles of the following chacks.) : 


Passing Data tn the Code Seqment by Reference 


SPRITE will not let data in segment one be oassed by 
reference, since there is no guarantee that both 
procedures are in the same code segqment. However, 
constants are simply moved to the stack first. 


SPRITE does not do the same thing with CONST parameters 
because of possible aliasing problems. That iss the 
procedure may also have VAR access to the variable 
(such as by sharing its data block directly), aiving 
strange results. 


Pointing to Data in the Code Seoment 


A pointer (9) without a SES clause cannot vnoint to data 
in seqment one. That even includes constants and small 
programs. 


This restriction is closely related to the first. If 
we allowed (€p) to point to seaqment oner then ovassing 
(p92) by reference would violate the first restriction. 
SPRITE would not catch this errors because it cannot 
tell at compile time which- segment (99) is ine Fy 
making sure (p) ooints to one of the data segments, 
(oa) can be passed freely as long as the calling 
procedure’s SEG_TASLE 7s an exact subset of the called 
procedure’s SEG_TASLE (see L.4.4.1). 


This restriction atso apolies to a LINK without a SEG 
clause. Though not strictly necessary, this is safer 
and more consistent. 


Exolicitly Declaring Data in the Code Seqment 
SPRITE makes the abdove checks. In large programs, 


those declaring data in the code seqment (or a pointer 
or LINK to it) must verify that the data and alt 


Page 20 


procedures that share it Cor dereference the pointer or 
LINK) go in the same segment in the bind deck. 


SPRITE helos the user make this check by requiring that 
all data in segment one must be declared using the 
module name as the segment name (see L.2.2). Also, 
every pointer to seqment one must have the module name 
in its type Csee L.3.2). (CUNIV parameters and omitted 
taafields can byoass this? pointer kludgers beware!). 
Thus finding alt occurrences of the module name should 
guickly lead te alt olaces where something funny is 
qoing on with the code seaqment. 


Statements 


Several miscellaneous statements were changed or added 
for OMEGA and/or NCPX. These are described below. 


FIND 


With OMEGA programs, SPRITE can generate an SLT or $T28 
for the FIND statements which provide features not 
available with SEA. SLT supports searching over a 
Linked list. ST& supports searching an array with 
elements over 190 digits lonq. In addition to the find 
conditions SEA supports, SLT and ST& both support: 
finding the maximum values findina any or no bit 
matching a mask (see below)? or finding the first vatue 


“with one of the following relations to the key: m= 


05123000 


<=, >s DF, 


find condition 

I 

| bit mask: 

Vi. ANYLONE_SIT_LIN ___find primary ___MATCHES____exor____ 
\_ NO_LONE_RIT_LIN _/ \ 


If the ANYLONE_BIT_LIN or NO_ONE_BIT_IN form of FIND 
condition is used» atl corresoonding bits in each find 
primary and the specified bit mask expression are 
examined until an element is found which satisfies the 
match condition. A match occurs if any 
CANY_ONE_BIT_IN) or no ANO_ONE_BIT_LIN) pair of 
corresponding bits are both set. The bit mask must he 
a fixed lLenaoth hex strina the same size as the find 
orimary. 


os, 
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For a linked list FIND in a targe proarams the types of 
the List head pointer and the Link field must be 
equivalent. If they are not LINKss, they must have a 
SEG clause. Also, if the List head pointer Cor LINK) 
has a SEG clause, it must be in the specified seament. 
These restrictions guarantee that the List head vointer 
and every element of the List are in the same seaqment, 
which must be true for the SLT instruction to work 
properly. 


LINKs - without a SEG clause were desianed specifically 
for use with Linked list FIND statements. This 
exolains the stranqe restrictions on their use (see 
t.4). By definitionre they point to the same seqment 
they are ins which is what the SLT instruction needs. 
Since no SEG clause is needed to quarantee this the 
same FIND statment can be used to search Linked Lists 


in several different segments. The user can simply 
pass the list head pointer (defined as a LINK) by 
reference to the oprocedure containing the FIND 


statement. 


GENERATE 


“GENERATE LOCAL™ generates snace on the stacks which is 
In seqment zero. Thus if the pointer or LINK has a SEG 
clause, it must be seaqment zero. 


“GENERATE EXTERNAL” generates space in the heap. In a 
small program, the heap is In seqment zero. In a large 
program, each data seaqment can have its own heap. When 
generating with a LINK without a SEG clause, SPRITE 
generates heap soace in the seament the LINK is in. It 
is an error if this segment jis not known at compile 
time. When generating with a pointer in aie targe 
program, it is an error if the pointer does not have a 
SEG clauser because the SEG clause specifies which 
seqment to aenerate in. The seaqment must be in the 
current environment, but not seqment one. Generatina 
with a LINK with a SEG clause is handled the same way 
as generating with a pointer with a SEG clause. 


ALIAS 


The ALIAS statement allows the user to associate a 
Given SPRITE name or orimary with an assembly code 
Label. This can be useful when combining SPRITE and 
assembly modules. 


a) 
w 
Ke} 
ft) 
Ne 
N 


alias statement 


a 


} / assembly tabel: \ 
\___ALIAS___\U__sprite name___| = ______ literal. Jo. 
\ 
{ 
sprite name 
| 
{\V.-module: ident_____ é procedure: ident_____..___ 
{ ae Ree ee ane en ee ee Re ee oe / \ 
| | 
{\__.data blocks seas or seq table: ident________ 1 
{ \{ 
Pe la es | 
| / \ | 
{\._data block variable: ident_____ \__selection__/_____ | 
i . op fee Migs fee Oe A a / \] 
\___indicant / | 


The ALIAS statement appears in the MID, without a KNOWS 
List. The assembly code label is an EACDIC string 
literal un to six characters Long. Only constant 
selections are allowed on the sprite name. That iss 
fields and constant indexing are okays but not variable 
indexing nor oointer dereferencina. 


L.5.4 OVERLAY 
The operating system jncludes several overlay modules, 


which are written in assembly code, (They cannot be 
written in SPRITE» since once they ares they will no 


longer be overlay modules.) When calling an overlay 
module entry points SPRITE outs out a VEN to RGOVL with 
the aoprooriate parameters. The operating system 


writer can specify which modules are in overlays by 
using the OVERLAY statement. It anpears In the MID, 
without a KNOWS tist. 


overlay statement 


| / \ 

2 ee oe OVERICAY \Nic-modules jdentl__/_ 
\ 
| 

WARNING: Proc pointers can be initialized to point to 


overlay module entry pointss since this is needed to 
supoly procedure addresses to assembly code modules. 


05420000 


L.5.5 
re 
| 
| 
| 
! 
\L 

L.6 
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However,» these proc pointers must not be dereferenced 
in a SPRITE module, since SPRITE will not generate the 
necessary S8GOVL call. SPRITE does not catch this 
illegal use of these proc pointers. 


REMAPS 


The REMAPS definition allows the user to redefine the 
variables within a DATA blocks without resorting to 
structures with omitted tagfields. 


maps definition 


remap Target 2 2 2 2 22 ~ eee tec OR as! 
SATA DATA / Co, Ae ea \ 
name: name: { / var: \ { 


~ident__REMAPS__jdent__ 7: ___\__\L_Lidentli/__tyne__/__ 
\ 


The REMAPS definition may anpear wherever ai DATA 
definition may appears but only in the MID. If the 
target DATA block is declared within a seaqment (see 
L~2.1), the REMAPS block must be dectared within the 
same seqment. REMAPS block variables cannot be 
initialized (but this might be implemented Later on). 
The REMAPS block cannot be bigger than the target DATA 
block being redefined. To access REMAPS block 
variables, use the reman DATA name in a SHARES List, 
just as you would for a normal DATA block. 


sm_j90° 
DATA 
basic_definition STRING (200) OF HEX := “O"; 


sm_to_for_keyboard_output 
REMAPS sm_io: 


messaqe_number 0..999, 
keyboard_command, 
message_received RPOOLEAN; 


Imolicitly Declared Data 


Progqram_reserved_memory and theap are imolicitly 
declared by SPRITE. If the user must have access to 
their datas they-emust be declared explicitly in the 
user's MID. The names are different in Large programs, 
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however, as shown below. 


Program_reserved_ memory 


Program_reserved_memory is the first fifty bytes in 
seqment zeror containing such things as the index 
registers. Tf ait is declared explicitly, and the 
declared block jis bigger than thats the declared size 


is used instead. 


In a large programs there can be more than one segment 
zero. Since the same name cannot be used for. two 
different MTD data blocks oprogram_reserved_memory 
Cannot be declared by that name for each seaqment zero. 
Thus Laraqe orogqrams must instead use: “prm_”™ + <the 
seqment name>. This means the segment zero names have 
to be unique in the first 26 characters (30,4 less 4 for 


“orm”). 


Theao 


In small proqramse SPRITE maintains the hean with the 
imolicit data block theap. 


In Large programs, each seaqment Cother than one) can 
have its own heap and iheap. To maintain unique names, 


“each seament's iheao is named “jhean_" + <the seqment 


name>. Note that the seqment names must be unique in 
the first 24 characters (30, Less 4 for “iheap_"). The 
size of each heap can be declared individuatly itn the 
bind deck. If the program never tries to qenerate 
anything in a particular seqment's heap, that seqment's 
heap and theao are not bound in. 


Standard Functions and Procedures 


The standard function proc_ptr and the type construct 
PTR TO PROC work somewhat differently for OMEGA. Alsos 
OMEGA supoorts tocksy which SPRITE implements with new 
standard procedures and types. Thase and severat other 
new standard functions and orocedures are described 
below. 


Proc Pointer Types 


Non-OMFGA orocedure pointer types and the standard 
function oroc_ptr are described in section 13.5 of the 
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SPRITE Reference Manual. Briefly, proc_ptr returns. a 
reference to a procedure. Pereferencing the 
destination procedure pointer (followed by any 
Darameters) calls that procedure. 


For OMEGA programs, a procedure pointer is stored as a 
twenty-digit non-local environ pointer CENVP in 
assembler). The value nil is represented as 
"QOOONDOOO0COCEEEEEEE”. 


For lLaraqe OMEGA programs, procedure pointer tyoes must 
include an ACCESSES clause. This clause jis not allowed 
in other programs. SPRITE uses the ACCESSES clause to 
verify that the calling and catled procedures share the 
same segment zero (see L.3.3). SPRITE also uses this 
clause to set un the parameters provoerly for the called 
environment, just as it does with a normat call (sea 
L.4.4)., 


procedure. pointer type 


07200000 


seg 
return table: 
-~PTR_L_TO_L_PROC__params____value____ACCESSES__ident____ 
\__/ ace ae 


| a, Tees IS Naot k athe eats ot pos 


To be compatible, procedure pointers must have the same 
ACCESSES clause. {They must also have the same 
parameter List and RETURN types as in non-OMEGA 
oroqrams.) <A procedure pointer can only ovdoint to 
procedures with the same ACCESSES clause. It cannot he 
dereferenced within a procedure which uses a different 
seqment zero Cand thus a different stack). 


In a later release, coercions and the proc_ptr function 
could relax the ACCESSES clause restriction, as 
follows. The ACCESSES clauses need only be the same 
when there is a VAR or RETURN parameter containing a 
pointer without a SEG clause. If there is such a VALUE 
parameter, the destination proc pointer’s SEG_TABLE 
must be an exact subset of the source's Cor 
procedure's) SEG_TASLE. The same subset is required 
when there are any pass by reference or RETURN 
parameters at all, regardless of their type. 
Otherwise, the only restriction is that both SEG_TAALESs 
must use the same seqment zero. These restrictions are 
needed so SPRITE can check and process the parameters 
(see L.4.4). 
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L.7.2 Lock Types 
There are two different kinds of locks» as follows: 
tock tyoe 


~-LOCK 


tevel: constant simple exor 


we ewww ee eee ee ee 


VL 
| 
\ 


~-- EVENT 


ae we eee ee ee ee eee eee we wwe ww ew ee = 


Data block variables, structure fields, and array 
elements can be defined as type LOCK (synchronizatian 
tock) or FVENT Cevent Lock). For LOCKss the Level must 
be in the range 12.9999, Variables must be initialized 
with the oredefined constant “init _lock". The only 
valid use of these variables is to pass them to the 
Lock standard orocs?: Cprog.)locks Lock _conditional, 
untock,s and test_event. LOCKs and EVENTS are twenty 
digits bia. 


data 
DATA 
info STRUC 
flag ROOLEANS 
flagq_tock LOCK 3 
CURTS 22 Etruer init_lock]> 
proc 
PROC; 
SHARES data¢ 
prog.tock_conditional Cinfo.flaq_lock) % no “%;"* 
IF IN_USE 
THEN 
handle_busy_cases 
ELSE 
info.flagq := false; 
progeuntock Cinfo.wflag_lock); 
FI; 
CORP; 
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L.7.3 Definitions 


proc_ptr 
PROC (proc PROC_NAME) % Cproc) or (mod.proc) 
RETURNS PTR TO PROC ..a? 
% returns proc pointer with same parameters-s 
% return values and ACCESSES clause Cif any) 
% as the passed proc 


ptr 
PROC (primary T) 
RETURNS PTR_OR_LINK TO Tz 
% destination must be a PTR or a LINK 


ptr_add % to efficiently step through an array 
Proc Csource_otr PTR TO Te % a pointer into 
% an array of T 
elems UN_6) 
RETURNS PTR TO T? 
% dest_ptr t= source_otr + (Celems * T.SIZE) 


% (size rounded up to multiple of T*s modulo) 
% arithmetic on offset mart of pointers wnith 
% dest_otr getting saurce_ptr’s dimension 
4 override 
otrisub 
PROC Csource_ptr PTR TO Tp, 
elems UN_6) 


RETURNS PTR TO Te 
% same as otr_iadd except "-"” instead of "+" 


scale_ptr 


PROC (number UN_7, % must inctude dimension 
% override diait!! 
exponent 0..4) % must be constant 


RETURNS PTR TO Te 


% dest_otr := number * 
% 10 to the power of exponent 
proq 
MOD 
halt_breakpoint ¢ % HRK 
PROC (Cbreak_id, % AF 
mask STRING (2) OF. HEX); % BF 
% both must be constant 
read_timer % ROT 
PROC RETURNS UN_20; 
DOM; 
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mco % strictly for MCP use 
MOD 


alter_environment_table_entry 
PROC Csource_descriptor UNIV PLSTRLIDLHEX, 
dest_descriptor UNIV P_LSTRLO6B_LHEX)> 
% source_descriptor must be 10 digits long 
% dest_descriptor must be 6 digits Lona 


bind_date % COAT 
PROC RETURNS UN_63 % ddmmyy 
bind_time ; % CTiMN 
PROC RETURNS UN_4; % hhmmss 


build_ptrino_seg 
PROC (Csize, 
offset UN_6, 
seg SEGMENT_NAME) 
RETURNS PTR TO Ts % with seats DLO. 
Destination must be a PTR 
without a SEG clause. 
If dest is not a parametric pointer, 
just pass size of zero, 
If dest is a parametric pointer, 
pass size nart of pointer 
Cdigit size, but byte size when 
parametric CHAS or ERCDIC string). 


Nw of ae oe oat Nt 


build_otrisea 
PROC (size, 
offset UN_6) 
RETURNS PTR TO SEG s Tz 
% destination must be a PTR 
% with a SEG clause 
% size is same as ahove 


context_addr % ACTON 
PROC Corimary UNIV PL STR. 1_70_999999_HEX) 
% oarametric HEX string 
RETURNS STRING (8) OF HEX; 
% like ptr but returns a 
% context addresses with. 
% controlter and extend digit 


07316800 


ro 


convert_io 
PROC Ciniti 
resul 

% 

4 

v4 

% 


copy_desc 
PROC Cseg_t 
seq 


A 


al_desc UNIV P_LSTR_40_HEX, 
tidesc VAR UNIV P_STR_30_HEX); 
exceotion clauses: , 
IF INVALID_ADDRESS ... % LEQ 
params must be exactly 
40 and 30 digits tong 
| % 
able SEGMENT_TABLEs vA 
SEGMENT_NAME) % 
% 
RETURNS STRING €8) OF HEY? % 
returns a cooy descriptor, % 


eA 
th 
% 
% 


a 


copy_paqe_t 
PROC Csource 
dest_ 

% 


env_otr 
PROC Coroc 


for COPY TO part of APE. 
use module name as seg_tabl 
name for the module‘s run 
time environment 


able_entry 

e_descriptor, 

descriptor UNIV PLSTR_8_H 
params must be & digits ton 


\ 


PROC_LNAME, % (p 


reserved STRING (8) OF HEX) 


RETURNS 
% 
% 
% 


% 


halt_branch 
PROC (branc 
% 
% 


% 


hynver_call 
PROC (Cfucnt 
param 


07323600 


PTR TO PROC 2.27 
Same as proc_ptrs, except it 
tets user sonecify the eight 
reserved diqits in the ENVP 
Cproc_ptr sets them to zero 


h_to_self BOOLEAN): 

must be constant 

false means branch to next 
instruction 


jon number 0..999, 


s UNTV P_STR_1_TO_19998_HEX)- 


eS 


EX); 
q 


% 
roc) or 


) 


4 HCL 
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Cro 


PTNM 


SEG_TABLE name 
segment in seg _table 
SEG_TAS8LE 

6-digit EN, 

2-digit MAN 


ENVP 
(mod.oroc) 


% must be canAtant 
% size must bA 


% be mod @ 


A 
A 


A 
A 


A 


Page 
initiate_io % 10 
PROC (channel Quon 7 ler 
desc UNIV P_STR_6_TO_30_HEX)> 

% dese must be 6 to 30 digits lona 

% excenotion clause: 

% IF INVALID_IO ,.. % HIGH 
interrupt % INT 
PROC (request REQUEST)? 

% REQUEST is any user-defined, 

% non~packed symbolic with 

% up to 99 elements 
interrupt_data % INT 
PROC Creauest REQUEST?» 

data UNTV P_STR_S9O_HEX) 2 

% same as interrupts exceot 

% allows data to be passed 
jo_complete % roe 
PROC (channel Q..77e 

mast UN 6+ 
digit _count VAR UN_8)4 

% excention clause: 

7 IF INVALID_IO wa. % HIGH 
tock % LOKI! or 
PRoc (L_or_e VAR LOCK_OR_EVENT)3 4% WAIT 

% param must be a LOCK or an EVENT 
tock_conditional % LOKe or 
Proc Cl_or_e VAR LOCK_OR_EVENT)? % SETL 

% param must be a LOCK or an EVENT 

% excention clause: IF IN_USE ... 
make_page_table_entry_unused % ate O00 
PROC (descriptor UNIV PLSTR_B_HEX)2 

% desc must be & digits lona 
move_data % MYD 
PROC Csource UNTV P_STR_L1_TO_999999_HEX, 

dest VAR UNITY P_STR_1_TO0_999999_HEX)> 
move_repeat % MYR 
PROC (pattern UNTV P_STR_T_TO_999999_HEX » 

dest VAR UNIV P_STR_1_T0_999999_HEX); 

% dest’s size must be an exact 

4 multiole of pattern's size 

% if either is variable tength- 

% only one “VR will be generated 

% (with at most 190 repetitions) 


07330810 


39 


om 


mvs 

PROC Cafbf 
source_desc, 
dest _desc 
padding 
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% MVS 


UNIV PLSTR_4_HEX, 


“UNTV PLSTR_34_HEX, 
O0..2)% 


% afbf and padding must be constants 


% descs must be 
% padding: 0 
% 1 
% , 2 


offset _ptr 
PROC (Corimary 
RETURNS UN_62 
4 returns 


34 diaits tong 

pad with zeroes 
no padding 

pad with blanks 


% MADR 


UNIV P_STR_1_T9_999999_HEX) 


just the offset part of 


% a pointer to the parameter 


read_begin_address 
PROC (channel 
: dest 


% exception clause: 
% dest must be MOD 2, 


VAR UNIV P_STR_L4_CHAR); 


% RAD OO 
oaller 
% parametric CHAR 
IF RUSY ..- 
4 bytes longa 


read_end_address. % RAD O01 
( — pROC (channel 02.772 
Ee dest VAR UNTV P_STR8_4_CHAR)? 
% exceotion clause: IF BUSY ... 
% dest must be MOD 2, 4 bytes Lona 
read_result_descriotor % RAD O02 
PROC (channel aol?s 
dest VAR UNIV PLSTRLA_CHAR)? 
% exceotion clause: IF BUSY ... 
% dest must be MOD 2% 4 bytes Lona 
reinstate_task % BRY 


PROC Caddr 


PTR TO REINSTATE_LIST_ENTRY)- 
4 REINSTATE_LIST_ENTRY 


is a 


% user-defined structure 


a 


07336760 


string 


scan_descriotors 


PROC (list_head UN_4, % AFBF 
complete_r_d VAR R_D_PTR);> % 1X1 
% exception clause? 
% IF IO_COMPLETE ... % NEG 


% list head is address of first 

% result descriptor to check 

% complete_r_d is PTR Cwith or 

% without SEG clause) to first 
% R_D Cuser-defined structure) 
% found that says 1/0 complete 
% Cif any) 


set itimer 


Proc (time 


PROC (task 


stop_failure 


_ UNL20)3 
stack_overflow 
UN_4)7 
PROC Ccondition UN_ 6, 
fatal BOOLEAN); 


% both must be constant 


system_id 


PROC (dest 


VAR UNIV P_STR8_200_HEX)-; 
% dest must be 200 digits Long 


system_status 


PROC (dest 


VAR UNIV P_STR_200_HEX)> 
% dest must be 2N0 digits tong 


test_event 


PROC Cevent 


unlock 
Proc (Lior le 


07341800 


EVENT), 


% exception clause: IF IN_USE ... 


VAR LOCK_OR_LEVENT) + 
% naram must be a LOCK or an EVENT 


we 


ot 


% 


Na 


Page 


STT 
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FAIL 


Sst 1 


$sT an 


UNLK or 
SGNL 
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update_mast_address 


PROC Caddr UN_ 9) 
update_memory_error_address 

PROC Caddr UN_9); 
uodate_reinstate_list_address 

PROC (addr UN_ 9); 
update_snap_pnicture_address 

PROC Caddr UN_9)¢ 

write _beqin_end_addresses 

PROC (channel Dis 109 

source UNIV PLSTRL4_CHAR); 


% exception clause: IF BUSY ... 
% dest must be MOD 2+ 4 bytes long 
DOM; 


fos 


on 


97343800 


nr 


vA 


WHR 


WHR 


WHR 


WHR 


RAD 


Pade 


03 


02 
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